;
 ;     NT/95 monitor - Kixtart 3.63, 4.00
 ;
 ; (c) scripting@wanadoo.nl - 2000, 2001
 ;
 ;     vs 1.00 - program
 ;
:script_monitor_resolution
 DIM $completed
 DIM $first
 DIM $icode
 DIM $ikey
 DIM $index
;DIM $resolution
 DIM $x

 $resolution=""
 IF (@inwin = 1)
       $ikey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\System\CurrentControlSet\Services"
       ;
       ; - \???\DefaultSettings.XResolution
       ; - \???\DefaultSettings.YResolution
       ;
       IF (existkey($ikey) = 0)
             $completed="no"
             $first=""
             $x=""
             $index=0
             DO
                   $icode=ENUMKEY($ikey, $index)
                   IF (@error = 0)
                         ? $ikey+"\"+$icode
                         IF (len($ikey+"\"+$icode+"\Device0") <> 0) ; - AND ($icode <> "VgaSave") -
                               $x=$x+$first+"["+$icode+"=("
                               $x=$x+"X='"+ReadValue($ikey+"\"+$icode+"\Device0", "DefaultSettings.XResolution")+"',"
                               $x=$x+"Y='"+ReadValue($ikey+"\"+$icode+"\Device0", "DefaultSettings.YResolution")+"'"
                               $first=")],"
                         ENDIF
                   ELSE
                         $completed="yes"
                   ENDIF
                   $index=$index+1
             UNTIL ($completed = "yes")
             IF ($first <> "")
                   $x=$x+")]"
             ENDIF
             IF (len($x) <> 0)
                   $resolution=$x
             ELSE
                   $resolution="<unknown resolution>"
             ENDIF
       ENDIF
 ELSE
       $ikey="HKEY_LOCAL_MACHINE\Config\0001\Display\Settings"
       ;
       ; - ...\Resolution
       ;
       IF (existkey($ikey) = 0)
             $resolution=ReadValue($ikey, "Resolution")
             IF (len($resolution) = 0)
                   $resolution="<unknown resolution>"
             ENDIF
       ENDIF
 ENDIF
 ; Result: $resolution
 ?
 ? "display resolution="+$resolution
 RETURN