Beiträge von Tweaky

#Region    ;************ Includes ************
#include <Array.au3>
#include <WinAPIRes.au3>
#EndRegion ;************ Includes ************
;~ #AutoIt3Wrapper_UseX64=Y

FileDelete("D:\Extracted.ico")

Global $aINM[1], $LV, $LHT, $IHM

_ExtractIconToFile(@SystemDir & "\shell32.dll", -42, "D:\Extracted.ico")

If Not FileExists("D:\Extracted.ico") Then MsgBox(0, 0, "Datei wurde nicht gespeichert")


; #FUNCTION# =============================================================================================
; Name...........: _ExtractIconToFile
; Description ...: Extract an icon resource from a cpl, dll, exe, icl, ocx to a *.ico file
; Syntax.........: _ExtractIconToFile($sInFile, $iIcon, $sOutIco[, $iPath = 0])
; Parameters ....: $sInFile - Path to file that contains the icon to extract.
;                  $iIcon   - Icon Number to extract, eg; -1 (The first icon starts at -1)
;                  $sOutIco - Full path where to save the extracted icon to, eg; "C:\My Icons\new.ico"
;                  $iPath   - If set to 1 then the extraction path will be created if it doesn't exist.
;                             If left as 0 then if the extraction path doesn't exist it won't be created.
; Return values .: Success  - Return 1 and @error 0
;                  Failure  - Return 0 and @error 1 ~ 12
;                             @error 1 = Invalid $sInFile parameter
;                             @error 2 = Invalid $iIcon parameter
;                             @error 3 = LoadLibrary failed to return a valid ptr
;                             @error 4 = $iIcon does not exist in the $sInFile
;                             @error 5 = Failed to Find RT_GROUP_ICON Resource
;                             @error 6 = Returned RT_GROUP_ICON Resource as 0 bytes
;                             @error 7 = Failed to Load RT_GROUP_ICON Resource
;                             @error 8 = Failed to Lock RT_GROUP_ICON Resource
;                             @error 9 = Failed to create DLL Struct for RT_GROUP_ICON data
;                             @error 10 = Data in DLL Struct is null
;                             @error 11 = Failed to Open output file path
;                             @error 12 = Failed to write file at output path
;                             (Most the error returns were for my own debug purpose)
; Author ........: smashly
; Modified.......:
; Remarks .......: A big Thank You to Siao for the heads up on _ResourceEnumNames & ___EnumResNameProc
;                  Also Thank You to WeaponX for his _StringSplitRegExp
; Related .......:
; Link ..........;
; Example .......; _ExtractIconToFile(@SystemDir & "\shell32.dll", -42, @HomeDrive & "\Extracted.ico")
; ========================================================================================================
Func _ExtractIconToFile($sInFile, $iIcon, $sOutIco, $iPath = 0)
	Local $hInstance, $iGN = "", $hResource, $iSize, $hData, $pData, $tRes, $sDByte
	Local $sData, $sHdr, $iOrd, $aHtail, $iCnt, $Offset, $FO, $iCrt = 18

	If $iPath = 1 Then $iCrt = 26
	If Not FileExists($sInFile) Then Return SetError(1, 0, 0)
	If Not IsInt($iIcon) Then Return SetError(2, 0, 0)

	$hInstance = _WinAPI_LoadLibraryEx($sInFile, $LOAD_LIBRARY_AS_DATAFILE)

	If Not IsPtr($hInstance) Then Return SetError(3, 0, 0)
	_ResourceEnumNames($hInstance, $RT_GROUP_ICON)

	For $i = 1 To $aINM[0]
		If $i = StringReplace($iIcon, "-", "") Then
			$iGN = $aINM[$i]
			ExitLoop
		EndIf
	Next
	If $iGN = "" Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(4, 0, 0)
	EndIf
	$hResource = _WinAPI_FindResource($hInstance, $RT_GROUP_ICON, $iGN)
	If $hResource = 0 Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(5, 0, 0)
	EndIf
	$iSize = _WinAPI_SizeOfResource($hInstance, $hResource)
	If $iSize = 0 Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(6, 0, 0)
	EndIf
	$hData = _WinAPI_LoadResource($hInstance, $hResource)
	If $hData = 0 Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(7, 0, 0)
	EndIf
	$pData = _WinAPI_LockResource($hData)
	If $pData = 0 Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(8, 0, 0)
	EndIf
	$tRes = DllStructCreate("byte[" & $iSize & "]", $pData)
	If Not IsDllStruct($tRes) Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(9, 0, 0)
	EndIf
	$sData = DllStructGetData($tRes, 1)
	If $sData = "" Then
		_WinAPI_FreeLibrary($hInstance)
		Return SetError(10, 0, 0)
	EndIf

	$sHdr = StringLeft($sData, 14)
	$iOrd = Dec(LTHR("0x" & StringRight(StringLeft($sData, 42), 4))) ;index start of icon in the library
	$aHtail = _StringSplitRegExp(StringTrimLeft($sData, 14), '(.){28}', True)
	$iCnt = $aHtail[0]
	$Offset = ($iCnt * 16) + 6
	For $r = 1 To $aHtail[0]
		$sDByte = Dec(Hex(BitRotate("0x" & StringLeft(StringRight($aHtail[$r], 12), 4), -8), 4))
		$aHtail[$r] = StringTrimRight($aHtail[$r], 4)
		$sHdr &= $aHtail[$r] & LTHR($Offset) & "0000"
		$Offset += $sDByte
	Next
	For $i = 1 To $iCnt
		$hResource = _WinAPI_FindResource($hInstance, $RT_ICON, $iOrd)
		$iSize = _WinAPI_SizeOfResource($hInstance, $hResource)
		$hData = _WinAPI_LoadResource($hInstance, $hResource)
		$pData = _WinAPI_LockResource($hData)
		$tRes = DllStructCreate("byte[" & $iSize & "]", $pData)
		$sHdr &= StringTrimLeft(DllStructGetData($tRes, 1), 2)
		$iOrd += 1
	Next
	_WinAPI_FreeLibrary($hInstance)
	Dim $aINM[1]
	$FO = FileOpen($sOutIco, $iCrt)
	If $FO = -1 Then Return SetError(11, 0, 0)
	$FW = FileWrite($FO, $sHdr)
	If $FW = 0 Then Return SetError(12, 0, 0)
	FileClose($FO)
	Return SetError(0, 0, 1)
EndFunc   ;==>_ExtractIconToFile

; Helper Functions beyond this point

Func LTHR($sNum)
	Return Hex(BitRotate($sNum, -8), 4)
EndFunc   ;==>LTHR

Func _StringSplitRegExp($sString, $sPattern, $sIncludeMatch = False, $iCount = 0)
	Local $sReservedPattern = Chr(0), $sTemp, $aResult
	Local $sReplacePattern = $sReservedPattern
	If $sIncludeMatch Then $sReplacePattern = "$0" & $sReplacePattern
	$sTemp = StringRegExpReplace($sString, $sPattern, $sReplacePattern, $iCount)
	If StringRight($sTemp, 1) = $sReservedPattern Then $sTemp = StringTrimRight($sTemp, 1)
	$aResult = StringSplit($sTemp, $sReservedPattern, 1)
	Return $aResult
EndFunc   ;==>_StringSplitRegExp

Func _ResourceEnumNames($hModule, $iType)
	Local $aRet, $IsPtr = IsPtr($hModule), $xCB
	If $IsPtr Then
		$xCB = DllCallbackRegister('___EnumResNameProc', 'int', 'int*;int*;int*;int*')
		$aRet = DllCall('kernel32.dll', 'int', 'EnumResourceNamesW', 'ptr', $hModule, 'int', $iType, 'ptr', DllCallbackGetPtr($xCB), 'ptr', 0) ;Absturz bei 64bit!!!
		DllCallbackFree($xCB)
	EndIf
EndFunc   ;==>_ResourceEnumNames

Func ___EnumResNameProc($hModule, $pType, $pName, $lParam)
	Local $iSize = DllCall('kernel32.dll', 'int', 'GlobalSize', 'ptr', $pName), $tBuf
	If $iSize Then
		$tBuf = DllStructCreate('wchar[' & $iSize & ']', $pName)
		ReDim $aINM[UBound($aINM) + 1]
		$aINM[0] += 1
		$aINM[UBound($aINM) - 1] = DllStructGetData($tBuf, 1)
	Else
		ReDim $aINM[UBound($aINM) + 1]
		$aINM[0] += 1
		$aINM[UBound($aINM) - 1] = "#" & $pName
	EndIf
	Return 1
EndFunc   ;==>___EnumResNameProc

#Region    ;************ Includes ************
;~ #include-once
#EndRegion ;************ Includes ************
#AutoIt3Wrapper_UseX64=Y

Global $aINM[1], $LV, $LHT, $IHM

_ExtractIconToFile(@SystemDir & "\shell32.dll", -42, "D:\Extracted.ico")

; #FUNCTION# =============================================================================================
; Name...........: _ExtractIconToFile
; Description ...: Extract an icon resource from a cpl, dll, exe, icl, ocx to a *.ico file
; Syntax.........: _ExtractIconToFile($sInFile, $iIcon, $sOutIco[, $iPath = 0])
; Parameters ....: $sInFile - Path to file that contains the icon to extract.
;                  $iIcon   - Icon Number to extract, eg; -1 (The first icon starts at -1)
;                  $sOutIco - Full path where to save the extracted icon to, eg; "C:\My Icons\new.ico"
;                  $iPath   - If set to 1 then the extraction path will be created if it doesn't exist.
;                             If left as 0 then if the extraction path doesn't exist it won't be created.
; Return values .: Success  - Return 1 and @error 0
;                  Failure  - Return 0 and @error 1 ~ 12
;                             @error 1 = Invalid $sInFile parameter
;                             @error 2 = Invalid $iIcon parameter
;                             @error 3 = LoadLibrary failed to return a valid ptr
;                             @error 4 = $iIcon does not exist in the $sInFile
;                             @error 5 = Failed to Find RT_GROUP_ICON Resource
;                             @error 6 = Returned RT_GROUP_ICON Resource as 0 bytes
;                             @error 7 = Failed to Load RT_GROUP_ICON Resource
;                             @error 8 = Failed to Lock RT_GROUP_ICON Resource
;                             @error 9 = Failed to create DLL Struct for RT_GROUP_ICON data
;                             @error 10 = Data in DLL Struct is null
;                             @error 11 = Failed to Open output file path
;                             @error 12 = Failed to write file at output path
;                             (Most the error returns were for my own debug purpose)
; Author ........: smashly
; Modified.......:
; Remarks .......: A big Thank You to Siao for the heads up on _ResourceEnumNames & ___EnumResNameProc
;                  Also Thank You to WeaponX for his _StringSplitRegExp
; Related .......:
; Link ..........;
; Example .......; _ExtractIconToFile(@SystemDir & "\shell32.dll", -42, @HomeDrive & "\Extracted.ico")
; ========================================================================================================
Func _ExtractIconToFile($sInFile, $iIcon, $sOutIco, $iPath = 0)
	Local Const $LOAD_LIBRARY_AS_DATAFILE = 0x00000002
	Local Const $RT_ICON = 3
	Local Const $RT_GROUP_ICON = 14
	Local $hInst, $iGN = "", $hFind, $aSize, $hLoad, $hLock, $tRes, $sDByte
	Local $sData, $sHdr, $iOrd, $aHtail, $iCnt, $Offset, $FO, $iCrt = 18

	If $iPath = 1 Then $iCrt = 26
	If Not FileExists($sInFile) Then Return SetError(1, 0, 0)
	If Not IsInt($iIcon) Then Return SetError(2, 0, 0)

	$hInst = _LoadLibraryEx($sInFile, $LOAD_LIBRARY_AS_DATAFILE)
	If Not IsPtr($hInst) Then Return SetError(3, 0, 0)
	_ResourceEnumNames($hInst, $RT_GROUP_ICON)
	For $i = 1 To $aINM[0]
		If $i = StringReplace($iIcon, "-", "") Then
			$iGN = $aINM[$i]
			ExitLoop
		EndIf
	Next
	If $iGN = "" Then
		_FreeLibrary($hInst)
		Return SetError(4, 0, 0)
	EndIf
	$hFind = DllCall("kernel32.dll", "int", "FindResourceA", "int", $hInst, "str", $iGN, "long", $RT_GROUP_ICON)
	If $hFind[0] = 0 Then
		_FreeLibrary($hInst)
		Return SetError(5, 0, 0)
	EndIf
	$aSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hInst, "int", $hFind[0])
	If $aSize[0] = 0 Then
		_FreeLibrary($hInst)
		Return SetError(6, 0, 0)
	EndIf
	$hLoad = DllCall("kernel32.dll", "int", "LoadResource", "int", $hInst, "int", $hFind[0])
	If $hLoad[0] = 0 Then
		_FreeLibrary($hInst)
		Return SetError(7, 0, 0)
	EndIf
	$hLock = DllCall("kernel32.dll", "int", "LockResource", "int", $hLoad[0])
	If $hLock[0] = 0 Then
		_FreeLibrary($hInst)
		Return SetError(8, 0, 0)
	EndIf
	$tRes = DllStructCreate("byte[" & $aSize[0] & "]", $hLock[0])
	If Not IsDllStruct($tRes) Then
		_FreeLibrary($hInst)
		Return SetError(9, 0, 0)
	EndIf
	$sData = DllStructGetData($tRes, 1)
	If $sData = "" Then
		_FreeLibrary($hInst)
		Return SetError(10, 0, 0)
	EndIf
	$sHdr = StringLeft($sData, 14)
	$iOrd = Dec(LTHR("0x" & StringRight(StringLeft($sData, 42), 4))) ;index start of icon in the library
	$aHtail = _StringSplitRegExp(StringTrimLeft($sData, 14), '(.){28}', True)
	$iCnt = $aHtail[0]
	$Offset = ($iCnt * 16) + 6
	For $r = 1 To $aHtail[0]
		$sDByte = Dec(Hex(BitRotate("0x" & StringLeft(StringRight($aHtail[$r], 12), 4), -8), 4))
		$aHtail[$r] = StringTrimRight($aHtail[$r], 4)
		$sHdr &= $aHtail[$r] & LTHR($Offset) & "0000"
		$Offset += $sDByte
	Next
	For $i = 1 To $iCnt
		$hFind = DllCall("kernel32.dll", "int", "FindResourceA", "int", $hInst, "str", "#" & $iOrd, "long", $RT_ICON)
		$aSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hInst, "int", $hFind[0])
		$hLoad = DllCall("kernel32.dll", "int", "LoadResource", "int", $hInst, "int", $hFind[0])
		$hLock = DllCall("kernel32.dll", "int", "LockResource", "int", $hLoad[0])
		$tRes = DllStructCreate("byte[" & $aSize[0] & "]", $hLock[0])
		$sHdr &= StringTrimLeft(DllStructGetData($tRes, 1), 2)
		$iOrd += 1
	Next
	_FreeLibrary($hInst)
	Dim $aINM[1]
	$FO = FileOpen($sOutIco, $iCrt)
	If $FO = -1 Then Return SetError(11, 0, 0)
	$FW = FileWrite($FO, $sHdr)
	If $FW = 0 Then Return SetError(12, 0, 0)
	FileClose($FO)
	Return SetError(0, 0, 1)
EndFunc   ;==>_ExtractIconToFile

; Helper Functions beyond this point

Func LTHR($sNum)
	Return Hex(BitRotate($sNum, -8), 4)
EndFunc   ;==>LTHR

Func _LoadLibraryEx($sFile, $iFlag)
	Local $hInst2 = DllCall("Kernel32.dll", "hwnd", "LoadLibraryExA", "str", $sFile, "hwnd", 0, "int", $iFlag)
	Return $hInst2[0]
EndFunc   ;==>_LoadLibraryEx

Func _FreeLibrary($hModule)
	DllCall("Kernel32.dll", "hwnd", "FreeLibrary", "hwnd", $hModule)
EndFunc   ;==>_FreeLibrary

Func _StringSplitRegExp($sString, $sPattern, $sIncludeMatch = False, $iCount = 0)
	Local $sReservedPattern = Chr(0), $sTemp, $aResult
	Local $sReplacePattern = $sReservedPattern
	If $sIncludeMatch Then $sReplacePattern = "$0" & $sReplacePattern
	$sTemp = StringRegExpReplace($sString, $sPattern, $sReplacePattern, $iCount)
	If StringRight($sTemp, 1) = $sReservedPattern Then $sTemp = StringTrimRight($sTemp, 1)
	$aResult = StringSplit($sTemp, $sReservedPattern, 1)
	Return $aResult
EndFunc   ;==>_StringSplitRegExp

Func _ResourceEnumNames($hModule, $iType)
	Local $aRet, $IsPtr = IsPtr($hModule), $xCB
	If $IsPtr Then
		$xCB = DllCallbackRegister('___EnumResNameProc', 'int', 'int*;int*;int*;int*')
		$aRet = DllCall('kernel32.dll', 'int', 'EnumResourceNamesW', 'ptr', $hModule, 'int', $iType, 'ptr', DllCallbackGetPtr($xCB), 'ptr', 0)
		DllCallbackFree($xCB)
	EndIf
EndFunc   ;==>_ResourceEnumNames

Func ___EnumResNameProc($hModule, $pType, $pName, $lParam)
	Local $aSize = DllCall('kernel32.dll', 'int', 'GlobalSize', 'ptr', $pName), $tBuf
	If $aSize[0] Then
		$tBuf = DllStructCreate('wchar[' & $aSize[0] & ']', $pName)
		ReDim $aINM[UBound($aINM) + 1]
		$aINM[0] += 1
		$aINM[UBound($aINM) - 1] = DllStructGetData($tBuf, 1)
	Else
		ReDim $aINM[UBound($aINM) + 1]
		$aINM[0] += 1
		$aINM[UBound($aINM) - 1] = "#" & $pName
	EndIf
	Return 1
EndFunc   ;==>___EnumResNameProc

#AutoIt3Wrapper_UseX64=Y
#Region    ;************ Includes ************
#Include <EditConstants.au3>
#Include <WinAPISysWin.au3>
#Include <WindowsConstants.au3>
#include <GuiMenu.au3>
#EndRegion ;************ Includes ************

Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration

;Notiz: Größe und Lage
Global $iNotiz_x = 500
Global $iNotiz_y = 200
Global $iNotiz_breite = 200
Global $iNotiz_hoehe = 300

;Notiz erstellen
Global $sNotiz_inhalt = ""
Global $hGui_notizen = GUICreate("", $iNotiz_breite, $iNotiz_hoehe, $iNotiz_x, $iNotiz_y, BitOR($WS_SIZEBOX, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW)
Global $idEdit_notiz = GUICtrlCreateEdit($sNotiz_inhalt, 0, 0, $iNotiz_breite - 2, $iNotiz_hoehe - 20, BitOR($ES_MULTILINE, $ES_WANTRETURN, $WS_VSCROLL, $ES_AUTOVSCROLL))

;Kontextmenü - benutzerdefiniert
Global $w_editBoxProcNew = DllCallbackRegister("_MyWindowProc", "ptr", "hwnd;uint;long;ptr")
Global $w_editBoxProcOld = _WinAPI_SetWindowLong(GUICtrlGetHandle($idEdit_notiz), $GWL_WNDPROC, DllCallbackGetPtr($w_editBoxProcNew))
_WinAPI_SetWindowLong(GUICtrlGetHandle($idEdit_notiz), $GWL_WNDPROC, DllCallbackGetPtr($w_editBoxProcNew))

;Kontextmenü Editfeld
Global $idContext_notiz = GUICtrlCreateContextMenu()
Global $idMenuitem_notizen_beenden = GUICtrlCreateMenuItem("Test", $idContext_notiz)


GUISetState(@SW_SHOW, $hGui_notizen)


While 1
	Sleep(10)
WEnd


Func _MyWindowProc($hWnd, $uiMsg, $wParam, $lParam)
	Switch $uiMsg
		Case $WM_CONTEXTMENU

			If $hWnd = GUICtrlGetHandle($idEdit_notiz) Then
				; show our context menu

				Local $iSelected = _GUICtrlMenu_TrackPopupMenu(GUICtrlGetHandle($idContext_notiz), $hWnd, -1, -1, 1, 1, 2)
				Return 0
			EndIf
	EndSwitch
	;pass the unhandled messages to default WindowProc

	Return _WinAPI_CallWindowProc($w_editBoxProcOld, $hWnd, $uiMsg, $wParam, $lParam)
EndFunc   ;==>_MyWindowProc

Func _beenden()
	Exit
EndFunc   ;==>_beenden

#Region    ;************ Includes ************
#include <Array.au3>
#include <WinAPISysWin.au3>
#include <WinAPIShellEx.au3>
#EndRegion ;************ Includes ************
#AutoIt3Wrapper_UseX64=y

;~ Global $aTest[3] = ["C:\test\", "C:\_test2\", "C:\_test3\"] ;funktioniert
Global $aTest[4] = ["C:\test\", "C:\_test2\", "C:\_test3\", "C:\_test4\"] ;funktioniert nicht

For $i = 0 To UBound($aTest) - 1
	DirCreate($aTest[$i])
Next

OnAutoItExitRegister('OnAutoItExit')
ConsoleWrite((@AutoItX64 ? 4 : 2) & @CRLF)

Local $hWnd = GUICreate('')
Local $iMsg = _WinAPI_RegisterWindowMessage('SHELLCHANGENOTIFY')
GUIRegisterMsg($iMsg, 'WM_SHELLCHANGENOTIFY')
Global $g_iID = _WinAPI_ShellChangeNotifyRegister64($hWnd, $iMsg, $SHCNE_ALLEVENTS, BitOR($SHCNRF_INTERRUPTLEVEL, $SHCNRF_SHELLLEVEL, $SHCNRF_RECURSIVEINTERRUPT), $aTest, 1)
If @error Then
	MsgBox(($MB_ICONERROR + $MB_SYSTEMMODAL), 'Fehler', 'Das Fenster wurde nicht registriert.')
	Exit
EndIf

While 1
	Sleep(1000)
WEnd

Func WM_SHELLCHANGENOTIFY($hWnd, $iMsg, $wParam, $lParam)
	#forceref $hWnd, $iMsg
	Local $tIDL = DllStructCreate((@AutoItX64 ? 'uint64 Item1; uint64 Item2' : 'dword Item1; dword Item2'), $wParam) ; bei 64 Bit ist das ein QWord (4 Byte)
	Local $sPath = _WinAPI_ShellGetPathFromIDList(DllStructGetData($tIDL, 'Item1'))
	If $sPath Then
		ConsoleWrite('Event: 0x' & Hex($lParam) & ' | Pfad: ' & $sPath & @CRLF)
	Else
		ConsoleWrite('Event: 0x' & Hex($lParam) & @CRLF)
	EndIf
EndFunc   ;==>WM_SHELLCHANGENOTIFY

Func OnAutoItExit()
	If $g_iID Then
		_WinAPI_ShellChangeNotifyDeregister($g_iID)
	EndIf
EndFunc   ;==>OnAutoItExit

Func _WinAPI_ShellChangeNotifyRegister64($hWnd, $iMsg, $iEvents, $iSources, $aPaths, $bRecursive = False)
	Local $iPath = $aPaths, $tagStruct = ''

	If IsArray($aPaths) Then
		If UBound($aPaths, $UBOUND_COLUMNS) Then Return SetError(1, 0, 0)
	Else
		Dim $aPaths[1] = [$iPath]
	EndIf
	For $i = 0 To UBound($aPaths) - 1
		If Not _WinAPI_PathIsDirectory($aPaths[$i]) Then Return SetError(2, 0, 0)
	Next
	For $i = 0 To UBound($aPaths) - 1
		$tagStruct &= 'ptr;int;'
	Next
	Local $tEntry = DllStructCreate($tagStruct)
	For $i = 0 To UBound($aPaths) - 1
		$aPaths[$i] = _WinAPI_ShellILCreateFromPath(_WinAPI_PathSearchAndQualify($aPaths[$i]))
		DllStructSetData($tEntry, (@AutoItX64 ? 4 : 2) * $i + 1, $aPaths[$i]) ; bei 64Bit ist PIDLIST_ABSOLUTE = 64 Bit (4 Byte)
		DllStructSetData($tEntry, (@AutoItX64 ? 4 : 2) * $i + 2, $bRecursive)
	Next

	Local $iError = 0
	Local $aCall = DllCall('shell32.dll', 'ulong', 'SHChangeNotifyRegister', 'hwnd', $hWnd, 'int', $iSources, 'long', $iEvents, _
			'uint', $iMsg, 'int', UBound($aPaths), 'struct*', $tEntry)
	If @error Or Not $aCall[0] Then $iError = @error + 10

	For $i = 0 To UBound($aPaths) - 1
		_WinAPI_CoTaskMemFree($aPaths[$i])
	Next

	Return SetError($iError, 0, $aCall[0])
EndFunc   ;==>_WinAPI_ShellChangeNotifyRegister64