[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 иконок с библиотеки