Icon extraction on .exe and dll. files

[Guest]

Hello everybody!

I am currently developing a sidebar-application and getting stucked in the
problem of extracting the default application icon of .exe and .dll files.
Has anybody out there a solution in VB . Net?

I tried a solution using LoadLibraryEx, LoadResource, FindResource,
ExtractIcon etc. but only run into StackOverflow errors. Hence I guess that
the HICON-structure of the native window system and the .NET Icon-class
differ in some (or more probable: many) ways. For example ExtractIcon(...)
returns a handle on an icon. Trying to use this handle by
Icon.FromHandle(handle) results in a StackOverflow error.

Regards,
Joachim

 

[Guest]

I've found a solution that works fine:

Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" _
(ByVal lpszFile As String, _
ByVal nIconIndex As Integer, _
ByRef phiconLarge As Integer, _
ByRef phiconSmall As Integer, _
ByVal nIcons As Long) As Integer

....

handle = ExtractIcon(Me.Handle.ToInt32, .FileName, 0)
If handle > 0 Then

Dim icn As Icon = Icon.FromHandle(New IntPtr(handle))
Dim bmp as Bitmap = icn.ToBitmap()

...

End If

Thx for your interest!
Joachim

 

[Guest]

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

 

[Herfried K. Wagner [MVP]]

I am currently developing a sidebar-application and getting stucked in the
problem of extracting the default application icon of .exe and .dll files.
Has anybody out there a solution in VB . Net?

In addition to the other replies: DLLs don't have a default application
icon, at least not in Explorer.

 

[Guest]

I'm sorry for the misleading expression ".exe and .dll". You're absolutly
right!