Declare Function ExtractIconEx Lib "shell32" 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, то функция возвращает количество значков, хранимых в выбранном файле. В остальных случаях функция возвращает число значков, успешно извлеченных из файла.
' смотри также пример extractico.zip ' Получаем число значков, хранимых в файле ' C:\Windows\System32\shell32.dll Dim lpszFile As String ' имя файла Dim lIcons As Long ' число значков lpszFile = "c:\windows\system32\shell32.dll" ' Вычисляем число значков в файле shell32.dll lIcons = ExtractIconEx(lpszFile, -1, 0, 0, 0) MsgBox("Всего " & lIcons & " значков")