Как извлечь иконки из exe-файла? - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Есть программулина, в котором на кнопках используются иконки. Есть ли какая софтина, позволяющая извлечь данные иконки? Если есть - киньте ссылку. Спасибо.

Решение задачи: «Как извлечь иконки из exe-файла?»

textual
Листинг программы
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
Declare Function DrawIcon Lib 'user32' (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
 
 
Dim lpszFile       As String 'имя файла
Dim lIcons         As Object 'значек
 
lpszFile = 'c:windowscalc.exe'
lIcons = ExtractIconEx(lpszFile, -1, 1, 0, 0)
DrawIcon Me.hdc, 0, 0, lIcon

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы