[AZJIO]

Есть ещё "C:\Program Files\AutoIt3\Examples\GUI\Advanced\enumicons.au3"

Маленькие иконки 16х16

Код:

#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>

_Main()

Func _Main()
    Local $hImgLst, $hGui, $hLV, $n, $sPath

    ; Создаёт GUI и элементы
    $hGui = GUICreate("Иконки", 200, 560, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_POPUP)
    $hLV = GUICtrlCreateListView('Иконки', 3, 3, 200 - 10, 560 - 10)

    $sPath = @SystemDir & '\shell32.dll'
    ; $sPath = @SystemDir & '\wmploc.dll'
    ; Загружает изображения
    $hImgLst = _GUIImageList_Create(16, 16, 5, 1 + 4, 0, 1)
    $n = 0
    Do
        _GUIImageList_AddIcon($hImgLst, $sPath, $n)
        $n += 1
    Until @error
    _GUICtrlListView_SetImageList($hLV, $hImgLst, 1)

    $n -= 2
    WinSetTitle($hGui, '', $n + 1 & ' иконок')
    For $i = 0 To $n
        _GUICtrlListView_AddItem($hLV, $i, $i)
    Next
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case -3
                Exit
        EndSwitch
    WEnd
EndFunc   ;==>_Main

Большие иконки 32х32

Код:

#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>

_Main()

Func _Main()
    Local $hImgLst, $hGui, $hLV, $n, $sPath

    ; Создаёт GUI и элементы
    $hGui = GUICreate("Иконки", 700, 560, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_POPUP)
    $hLV = GUICtrlCreateListView('Иконки', 3, 3, 700 - 10, 560 - 10, $LVS_LIST + $LVS_ICON)

    $sPath = @SystemDir & '\shell32.dll'
    ; $sPath = @SystemDir & '\wmploc.dll'
    ; Загружает изображения
    $hImgLst = _GUIImageList_Create(32, 32, 5, 1 + 4, 0, 1)
    $n = 0
    Do
        _GUIImageList_AddIcon($hImgLst, $sPath, $n, True)
        $n += 1
    Until @error
    _GUICtrlListView_SetImageList($hLV, $hImgLst, 1)

    $n -= 2
    WinSetTitle($hGui, '', $n + 1 & ' иконок')
    For $i = 0 To $n
        _GUICtrlListView_AddItem($hLV, $i, $i)
    Next
    ; _GUICtrlListView_SetView($hLV, 3)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case -3
                Exit
        EndSwitch
    WEnd
EndFunc   ;==>_Main

[eus_deus]

спасибо, буду пробовать подстроить под себя