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

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

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

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

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


СОХРАНИТЬ ССЫЛКУ