Desktop Resolution?

[Guest deusieeee]

I was wondering how i could read the current desktop resolution // color depth?

Sleep(3000)
$array = WinGetClientSize ( "Program Manager" )
MsgBox(0,"", $array[0] & " " & $array[1])

would that work for resolution for say Win98 // me // 2000 // XP???

how would i get the color depth??

thanks,

-deusieeee-

[Guest deusieeee]

ok im using @DesktopWidth // @DesktopHeight

but im still stuck on getting the color depth.

thx

[Somerset]

ok please understand i am under windows 2000. so this may not work for windows 9x...

registry call

HKEY_CURRENT_CONFIG\System\CurrentControlSet\SERVICES

now here is what you have to do ok... min is an nvidia. so i cannot direct you to the name of the card you or someone else is using. now under these services should be two sub keys. should be names (VGASAVE) ignore that one that is windows default. the other kiey would be most likely the one that you are using for that computer. now under that key you will find another key names something like devie0 or some stuff. click on it and highlight it. off to the right look for a registry key that says (DefaultSettings.BitsPerPel) the number for the data is the color depth. 32 means true color, 16 means high color and so on... now remmber all this was done using regedit... so have fun... i hope this helps some... and under windows 98 read here...

[randd]

how would i get the color depth??

thanks,

-deusieeee-

Someone will hopefully clean this up a bit. But here's my quick and dirty.

; RegKey to video card used as Video0 which should be main/default video card
$VideoCardTotalKey = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DeviceMap\Video", "\Device\Video0")

; Set results to an array split by \
$VideoCardTotalKeyArray = StringSplit( $VideoCardTotalKey, '\' )

; Total number of items in the array
$VideoCardTotalKeyArrayNumber = $VideoCardTotalKeyArray[0]


; Only concerned with last two keys.  Pick them up by using array total and array total minus one.
$VidString =  & $VideoCardTotalKeyArray[($VideoCardTotalKeyArrayNumber - 1)] _ 
               "\" & $VideoCardTotalKeyArray[$VideoCardTotalKeyArrayNumber]

; $VideoBits should = color depth in decimal value
$VideoBits = RegRead("HKEY_CURRENT_CONFIG\System\CurrentControlSet\Services\" & $VidString, "DefaultSettings.BitsPerPel")

MsgBox(4096, "Bits", $VideoBits)

Edited June 22, 2004 by randd

[emmanuel]

there is a UDF somewhere on these boards for checking color depth, I'm not going to search for it, but I know I read about it once...

[randd]

@emmanuel,

I searched for 16 bit and 32 bit and only found a few threads started non of which answered the question. So I wrote the above script. It works for me, but I'm not positive about the reg keys in non-W2K boxes. I can test the script when I get home, but conceptually I think I have it correct.

I'm hoping one of the wizards will step up and let me know if I'm totally off base or not.

[Jos]

Last unstable has a new macro: @DesktopDepth

#20761

[randd]

@JdeB,

Should I be upgrading to bleeding edge?

Is there any chance you can gank the code for that little function and shove it here? I'd love to see if I'm even close.

I'll have to keep up on that topic... I didn't know Jon released new updates so frequently.

[Jos]

Should I be upgrading to bleeding edge?

Well you know the risk of Beta/Unstable releases....

Is there any chance you can gank the code for that little function and shove it here?  I'd love to see if I'm even close.

The macro @DesktopDepth returns Depth of the desktop screen in bits per pixel.

I'll have to keep up on that topic... I didn't know Jon released new updates so frequently.

Just look at the v3 Developers forum for all Unstable release updates.

[randd]

Someone will hopefully clean this up a bit.  But here's my quick and dirty. 

; RegKey to video card used as Video0 which should be main/default video card
$VideoCardTotalKey = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DeviceMap\Video", "\Device\Video0")

; Set results to an array split by \
$VideoCardTotalKeyArray = StringSplit( $VideoCardTotalKey, '\' )

; Total number of items in the array
$VideoCardTotalKeyArrayNumber = $VideoCardTotalKeyArray[0]


; Only concerned with last two keys.  Pick them up by using array total and array total minus one.
$VidString =  & $VideoCardTotalKeyArray[($VideoCardTotalKeyArrayNumber - 1)] _ 
               "\" & $VideoCardTotalKeyArray[$VideoCardTotalKeyArrayNumber]

; $VideoBits should = color depth in decimal value
$VideoBits = RegRead("HKEY_CURRENT_CONFIG\System\CurrentControlSet\Services\" & $VidString, "DefaultSettings.BitsPerPel")

MsgBox(4096, "Bits", $VideoBits)

EDIT:

Here's a piece of code that works on XP (for those of us that didn't updated to the latest beta). My original code only worked on Win2k. It shouldn't take any skill to change to add a check to see if the user is using Win2k or WinXP.

; RegKey to video card used as Video0 which should be main/default video card
$VideoCardTotalKey = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DeviceMap\Video", "\Device\Video0")
; Set results to an array split by \
$VideoCardTotalKeyArray = StringSplit( $VideoCardTotalKey, '\' )
; Total number of items in the array
$VideoCardTotalKeyArrayNumber = $VideoCardTotalKeyArray[0]
; Only concerned with last two keys.  Pick them up by using array total and array total minus one.
$VidString =  $VideoCardTotalKeyArray[($VideoCardTotalKeyArrayNumber - 1)] & "\"
; $VideoBits should = color depth in decimal value
$VideoBits = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\System\CurrentControlSet\Control\VIDEO\" & $VidString & '\0000\', "DefaultSettings.BitsPerPel")
MsgBox(4096, "Bits", $VideoBits)