Custom Query

The definition of tagNMHDR in StructureConstants.au3 is wrong. It is Global Const $tagNMHDR = "hwnd hWndFrom;int IDFrom;int Code" whereas it should be Global Const $tagNMHDR = "hwnd hWndFrom;int_ptr IDFrom;int Code" For this reason, many UDFs do not work when running AutoIt in 64bit-version.

The returned bitmap handles from _WinAPI_GetIconInfo() are not deleted. (only $aIcon[4] bitmask has a valid handle when used with cursor)

modified _ScreenCapture_Capture() with added error handling in attached file

Environment = 3.3.0.0 under WIN_XP/Service Pack 2 X86

#include <ScreenCapture.au3>
Global $hBitmap, $hProcess, $aGDIObjs

$hProcess = _WinAPI_GetCurrentProcess()
If @error Then $hProcess = 0xFFFFFFFF

While 1
	Sleep(50)
	$hBitmap = _ScreenCapture_Capture("", 0, 0, 400, 300, True)
	_WinAPI_DeleteObject($hBitmap)
	$aGDIObjs = DllCall("user32.dll", "int", "GetGuiResources", "hwnd", $hProcess, "int", 0)
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : GDI Objects = ' & $aGDIObjs[0] & @CRLF)
	If $aGDIObjs[0] > 40 Then Exit
WEnd

; HiHo Devs, ; the example for _WinAPI_EnumDisplayDevices() in the help-file ; seems to be wrong. See attached function _Main_OLD() for the ; org example and _Main_NEW() for my proposed new example ; Best Regards

#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #include <WinAPI.au3> Opt('MustDeclareVars', 1)

_Main_OLD()

Func _Main_OLD()

Local $aDevice, $i = 0, $text While 1

$aDevice = _WinAPI_EnumDisplayDevices("", $i) If Not $aDevice[0] Then ExitLoop $text = "Successful? " & $aDevice[0] & @LF $text &= "Device (Adapter or Monitor): " & $aDevice[1] & @LF $text &= "Description (Adapter or Monitor): " & $aDevice[2] & @LF $text &= "Device State Flag: " & $aDevice[3] & @LF Select

Case BitAND($aDevice[3], 32) = 32

$text &= @TAB & "- The device has more display modes than its output devices support" & @LF ContinueCase

Case BitAND($aDevice[3], 16) = 16

$text &= @TAB & "- The device is removable; it cannot be the primary display" & @LF ContinueCase

Case BitAND($aDevice[3], 8) = 8

$text &= @TAB & "- The device is VGA compatible" & @LF ContinueCase

Case BitAND($aDevice[3], 4) = 4

$text &= @TAB & "- Represents a pseudo device used to mirror application drawing for remoting" & @LF ContinueCase

Case BitAND($aDevice[3], 2) = 2

$text &= @TAB & "- The primary desktop is on the device" & @LF ContinueCase

Case BitAND($aDevice[3], 1) = 1

$text &= @TAB & "- The device is part of the desktop" & @LF

EndSelect $text &= "Plug and Play identifier string: " & $aDevice[4] & @LF MsgBox(0, "", $text) $i += 1

WEnd

EndFunc ;==>_Main

_Main_NEW()

Func _Main_NEW()

Local $aDevice, $i = 0, $text While 1

$aDevice = _WinAPI_EnumDisplayDevices("", $i) If Not $aDevice[0] Then ExitLoop $text = "Successful? " & $aDevice[0] & @LF $text &= "Device (Adapter or Monitor): " & $aDevice[1] & @LF $text &= "Description (Adapter or Monitor): " & $aDevice[2] & @LF $text &= "Device State Flag: " & $aDevice[3] & @LF if BitAND($aDevice[3], 32) then $text &= @TAB & "- The device has more display modes than its output devices support" & @LF

if BitAND($aDevice[3], 16) then $text &= @TAB & "- The device is removable; it cannot be the primary display" & @LF if BitAND($aDevice[3], 8) then $text &= @TAB & "- The device is VGA compatible" & @LF if BitAND($aDevice[3], 4) then $text &= @TAB & "- Represents a pseudo device used to mirror application drawing for remoting" & @LF if BitAND($aDevice[3], 2) then $text &= @TAB & "- The primary desktop is on the device" & @LF if BitAND($aDevice[3], 1) then $text &= @TAB & "- The device is part of the desktop" & @LF

$text &= "Plug and Play identifier string: " & $aDevice[4] & @LF MsgBox(0, "", $text) $i += 1

WEnd

EndFunc ;==>_Main