[Creat0R]

Нужно открывать библиотеку, выбирать иконку, и писать в переменные имя и номер иконки. »

Для чего?

[eus_deus]

для выбора иконки с файла и получения строки вида - имя файла, иконка. Для использования потом в коде

[Creat0R]

для выбора иконки с файла и получения строки вида - имя файла, иконка. Для использования потом в коде »

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <WinAPI.au3>

$hGUI = GUICreate('Icons', 150, 150, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
GUISetState(@SW_SHOW, $hGUI)

$iLoading_Lbl = GUICtrlCreateLabel('Loading...', 10, 10)

$aIcons = _LoadIcons('shell32.dll')
$iRandom = Random(1, $aIcons[0][0], 1)
$iCenter = (150  / 2) - (32 / 2)

GUICtrlDelete($iLoading_Lbl)
GUICtrlCreateIcon($aIcons[$iRandom][0], $aIcons[$iRandom][1], $iCenter, $iCenter, 32, 32)

While 1
    $iMsg = GUIGetMsg()

    Switch $iMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _LoadIcons($sFile)
    Local $iIcons = _WinAPI_ExtractIconEx($sFile, -1, 0, 0, -1)
    Local $aIcons[$iIcons + 1][2] = [[$iIcons]]

    For $i = 1 To $iIcons
        $aIcons[$i][0] = $sFile
        $aIcons[$i][1] = -$i
    Next

    Return $aIcons
EndFunc

[eus_deus]

Creat0R, ладно, понял - фигню. сморозил, фигню и получил.
Код нужен вот такого назначения, чтобы

выбора иконки с файла и получения строки вида - имя файла, иконка »

Код:

Func _iconselect()
    $stIcon = DllStructCreate('int') ;Структура для номера иконки
    ;преобразование строки имени файла в Unicode
    $nBuffersize = DllCall('KERNEL32.DLL', _
            'int', 'MultiByteToWideChar', _
            'int', 0, _
            'int', 0x00000001, _
            'str', $sFileName, _
            'int', -1, _
            'ptr', 0, _
            'int', 0)
    $stString = DLLStructCreate("byte[" & 2 * $nBuffersize[0] & "]")
    DllCall('KERNEL32.DLL', _
            'int', 'MultiByteToWideChar', _
            'int', 0, _
            'int', 0x00000001, _
            'str', $sFileName, _
            'int', -1, _
            'ptr', DllStructGetPtr($stString), _
            'int', $nBuffersize[0])
    ;Вызов функции диалога выбора значков
    DllCall('shell32.dll', _
            'none', 62, _
            'hwnd', 0, _
            'ptr', DllStructGetPtr($stString), _
            'int', DllStructGetSize($stString), _
            'ptr', DllStructGetPtr($stIcon))
    ;обратное преобразование строки имени файла в однобайтную кодировку
    $nBuffersize = DllCall('KERNEL32.DLL', _
            'int', 'WideCharToMultiByte', _
            'int', 0, _
            'int', 0x00000200, _
            'ptr', DllStructGetPtr($stString), _
            'int', -1, _
            'ptr', 0, _
            'int', 0, _
            'ptr', 0, _
            'ptr', 0)
    $stFile = DLLStructCreate('char[' & $nBuffersize[0] & ']')
    DllCall('KERNEL32.DLL', _
            'int', 'WideCharToMultiByte', _
            'int', 0, _
            'int', 0x00000200, _
            'ptr', DllStructGetPtr($stString), _
            'int', -1, _
            'ptr', DllStructGetPtr($stFile), _
            'int', $nBuffersize[0], _
            'ptr', 0, _
            'ptr', 0)
    $sFileName = DllStructGetData($stFile, 1)
    $nIconIndex = DllStructGetData($stIcon, 1) ;Получение номера иконки
    ;Контрольное сообщение
    ; Msgbox(262192, 'Info', _
    ;        'Выбран файл: ' & $sFileName & @CR & _
    ;        'Иконка: ' & $nIconIndex)
    GUICtrlSetData($sInput4, $nIconIndex)
    $stBuffer = 0
    $stFile = 0
    $stIcon = 0
EndFunc

Но этот открывает только не более 500 иконок с библиотеки

[Creat0R]

Код нужен вот такого назначения »

Т.е нужно просто вывести на экран диалог выбора иконки, и получить выбранную в нём иконку?

А так:

Код:

$aRet = _PickIconDlg('shell32.dll', 2, WinGetHandle(''))

If Not @error Then
    ConsoleWrite('Icon: ' & $aRet[0] & @LF)
    ConsoleWrite('ID: ' & $aRet[1] & @LF)
EndIf

;Open Dialog to pick an icon of certain file.
Func _PickIconDlg($sFileName, $nIconIndex = 0, $hWnd = 0)
    Local $nRet, $aRetArr[2]

    $nRet = DllCall("shell32.dll", "int", "PickIconDlg", "hwnd", $hWnd, "wstr", $sFileName, "int", 1000, "int*", $nIconIndex)
    If @error Or Not $nRet[0] Then Return SetError(1, 0, -1)

    $aRetArr[0] = $nRet[2]
    $aRetArr[1] = $nRet[4]

    Return $aRetArr
EndFunc

[eus_deus]

Т.е нужно просто вывести на экран диалог выбора иконки, и получить выбранную в нём иконку? »

да, вот только

открывает только не более 500 иконок с библиотеки »

а нужна вся библиотека

[AZJIO]

eus_deus,
1. Известно что иконку можно вытащить по номеру
2. Известно что ListView может отобразить иконки в соотвествующем стиле
От вас требуется запустить цикл запроса иконок и тупо вставить их в ListView. Когда цикл перестанет возвращать иконки, значит они закончились и сделать выход из цикла.

[eus_deus]

AZJIO, все так просто? Вечером обязательно попробую))

[eus_deus]

не все просто)) ладно, фиг с ним, другим займусь