Картинке в DLL

[Мика]

Как узнать сколько картинок в DLL файле. Чтобы последняя картинка не повторялась несколько раз.

[GSerg]

Код: Выделить всё

Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Sub HowManyIcons()
  MsgBox ExtractIcon(Me.hWnd, "c:\windows\regedit.exe", -1)
End Sub