Icondatei mit mehreren Icongrößen mit GDI+ laden

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WinAPIConstants.au3>


_GDIPlus_Startup()
Global Const $STM_SETIMAGE = 0x0172


Global $hGui = GUICreate('Test', 320, 320)
Global $idPic = GUICtrlCreatePic('', 20, 20, 256, 256)
GUISetState()


Global $sImgFile = @ScriptDir & '\Everaldo-Crystal-Clear-App-display.ico'


Global $hBitmap = _GDIPlus_BitmapCreateFromFile($sImgFile) ; <- hier wird nur das kleine (16x16) Icon geladen


Global $hBMP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) ; HBitmap von der Bitmap erstellen
_WinAPI_DeleteObject(GUICtrlSendMsg($idPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBMP)) ; und an das Pic-Control senden
_GDIPlus_BitmapDispose($hBitmap)
Do
Until GUIGetMsg() = -3
_GDIPlus_Shutdown()

#include <Array.au3>
Global $sIconfile = @ScriptDir & '\test.ico'


$aIconDim = _IconFileGetDimension($sIconfile)
_ArrayDisplay($aIconDim)




Func _IconFileGetDimension($sIconfile)
	; von eukalyptus in https://autoit.de/index.php/Thread/83223-Icondatei-mit-mehreren-Icongr%C3%B6%C3%9Fen-mit-GDI-laden/?postID=666122#post666122
	Local $hFile = FileOpen($sIconfile, 16)
	If $hFile = -1 Then Return SetError(1, 0, 0)
	Local $bIcon = FileRead($hFile)
	FileClose($hFile)
	Local $tIconHeader = DllStructCreate("ushort Res; ushort Type; ushort Cnt;")
	Local $tByte = DllStructCreate("byte[" & DllStructGetSize($tIconHeader) & "];", DllStructGetPtr($tIconHeader))
	DllStructSetData($tByte, 1, BinaryMid($bIcon, 1, DllStructGetSize($tIconHeader)))
	Local $iCnt = DllStructGetData($tIconHeader, "Cnt")
	Local $aIconDim[$iCnt][3]
	Local $iOffset = DllStructGetSize($tIconHeader) + 1
	For $i = 1 To $iCnt
		$tIconHeader = DllStructCreate("byte Width; byte Height; byte Colors; byte Res; ushort Planes; ushort Bits; uint Size; uint Offset;")
		$tByte = DllStructCreate("byte[" & DllStructGetSize($tIconHeader) & "];", DllStructGetPtr($tIconHeader))
		DllStructSetData($tByte, 1, BinaryMid($bIcon, $iOffset, DllStructGetSize($tIconHeader)))
		$aIconDim[$i - 1][0] = DllStructGetData($tIconHeader, "Width") = 0 ? 256 : DllStructGetData($tIconHeader, "Width")
		$aIconDim[$i - 1][1] = DllStructGetData($tIconHeader, "Height") = 0 ? 256 : DllStructGetData($tIconHeader, "Height")
		$aIconDim[$i - 1][2] = DllStructGetData($tIconHeader, "Bits")
		$iOffset += DllStructGetSize($tIconHeader)
	Next
	Return SetError(0, 0, $aIconDim)
EndFunc   ;==>_IconFileGetDimension