Как извлечь иконки из 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы