Функция ExtractAssociatedIcon

Declare Function ExtractAssociatedIcon _
    Lib "shell32.dll" _
    Alias "ExtractAssociatedIconA" _
    (ByVal hInst As Long, _
    ByVal lpIconPath As String, _
    lpiIcon As Long) As Long

ExtractAssociatedIcon возвращает описатель индексированных значков, найденных в файле или значок, найденный в файле, связанном с исполняемым файлом.

Возвращаемое значение

В успешном случае функция возвращает описатель значка. В случае ошибки возвращается 0.

Параметры

hInst
Описатель приложения, вызывающего функцию
lpIconPath
Строка, содержащая полный путь и имя файла, содержащего значок
lpiIcon
Индекс значка или описатель значка

Пример

' Отобразим значок какого-нибудь файла
Dim sPath As String, hIcon As Long, nIcon As Long
sPath = "e:\help\win32api.zip"  ' путь к файлу
hIcon = ExtractAssociatedIcon(App.hInstance, _
    sPath, nIcon)
' Отобразим значок, если мы успешно извлекли его
DrawIcon Picture1.hDC, 0, 0, hIcon
' Хотя изображение значка все еще видимо, сам значок не используется
' Поэтому мы уничтожаем его, чтобы освободить ресурсы
DestroyIcon hIcon

Смотри также

ExtractIcon

Категория

Значки