#include <APIConstants.au3>;3.3.6(8).1, 3.3.10.2 - APIResConstants.au3
#include <WinAPIEx.au3>;3.3.6(8).1, 3.3.10.2 - WinAPIRes.au3
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Global $sFile = @WindowsDir & '\explorer.exe', $aData, $iSize = 32, $iW = 10 + 5 * ($iSize + 10), $iH, $iCount
$aData = _WinAPI_EnumResourceNames($sFile, $RT_GROUP_ICON)
$iH = 10 + ($iSize + 10) * Ceiling($aData[0] / 5)
GUICreate('Icon count = ' & $aData[0], $iW, $iH)
For $i = 0 To 4
For $j = 0 To 4
$iCount += 1
If $iCount > $aData[0] Then ExitLoop 2
ConsoleWrite('Icon name: ' & $aData[$iCount] & @LF)
GUICtrlCreateIcon($sFile, $aData[$iCount], 10 + $j * ($iSize + 10), 10 + $i * ($iSize + 10), $iSize, $iSize)
Next
Next
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd