Функция ExtractIconEx

Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long

Платформа

ExtractIconEx извлекает значки из файлов *.exe,*.dll и *.ico.Функция может извлекать значки разных размеров,чьи описатели находятся в двух массивах. Также,функция может определить количество больших и маленьких значков,хранимых в файле.

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

Если nIconIndex равен -1, phiconLarge равен 0,и phiconSmall равен 0, то функция возвращает количество значков,хранимых в выбранном файле.В остальных случаях ,функция возвращает число значков,успешно извлеченных из файла.

Параметры

lpszFile
Имя файла с расширением .exe, .dll, or .ico для извлечения значков.
nIconIndex
Отсчитываемый от нуля индекс первого значка,извлекаемый из файла. Если это -1 и оба параметра phiconLarge и phiconSmall равны 0,функция возвращает число значков в файле. Windows 95, 98, NT 4.0 или выше, 2000:Если это - отрицательное целое число и по крайней мере или phiconLarge или phiconSmall (или оба) не нуль, функция первым извлекает значок, чей идентификатор ресурса равняется абсолютному значению этого параметра.
phiconLarge
Массив, который получает описатели больших значков, извлеченных из файла. Чтобы не извлекать больше одного значка, установите этот параметр в 0.
phiconSmall
Массив, который получает описатели маленьких значков, извлеченных из файла. Чтобы не извлекать больше одного значка, установите этот параметр в 0.
nIcons
Число значков, извлеченных из файла. Значки извлекаются последовательно, начиная со значка, идентифицированного nIconIndex.

Пример

' Получаем число значков,хранимых в файле
' C:\Windows\System\shell32.dll.

Dim lpszFile       As String 'имя файла
Dim lIcons         As Long 'число значков
lpszFile = "c:\windows\system\shell32.dll"

' Вычисляем число значков в файле shell32.dll
lIcons = ExtractIconEx(lpszFile, -1, 0, 0, 0)

  Debug.Print "Всего " & lIcons & "значков"

Примечание Вы можете скачать более подробный пример-
extractico.zip
Схожие функции
ExtractIcon
Категория
Значки

В начало.

террасная доска

logotransles.ru
салон

edem58.ru