Как вытащить иконки из ехе файла? VB.Net

[DLF]

Здравствуйте!
Вытащить иконку из ресурсов ехе файла на VB.Net можно так:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PictureBox1.Image = Drawing.Icon.ExtractAssociatedIcon(filePath).ToBit map
' "filePath" - путь к файлу

End Sub

Но вопрос в другом. Ведь нередко в ехе файле не одна, а несколько иконок.
Как сделать так, чтобы можно было получить все существующие в данном файле
иконки?

[Sebas]

К .NET данный вопрос не имеет отношения.Всё рулится через WinApi32. Пример был на форуме. В году... 2003))))

[Williams]

Но вопрос в другом. Ведь нередко в ехе файле не одна, а несколько иконок.
Как сделать так, чтобы можно было получить все существующие в данном файле
иконки?

Это можно осуществить при помощи функции API ExtractIconEx через P/Invoke следующим образом:

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

<DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
Shared Function ExtractIconEx(ByVal szFileName As String, _
            ByVal nIconIndex As Integer, _
            ByVal phiconLarge() As IntPtr, _
            ByVal phiconSmall() As IntPtr, _
            ByVal nIcons As UInteger) As UInteger
End Function

[Viper]

Это можно осуществить при помощи функции API ExtractIconEx через P/Invoke следующим образом:

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

<DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
Shared Function ExtractIconEx(ByVal szFileName As String, _
            ByVal nIconIndex As Integer, _
            ByVal phiconLarge() As IntPtr, _
            ByVal phiconSmall() As IntPtr, _
            ByVal nIcons As UInteger) As UInteger
End Function

Ты уверен, что данный вариант объявления функции сделает то что надо?

[DLF]

Был у меня рабочий примерчик для VB6 именно с этой функцией, но затерялся во времени.