Extract an Icon From a Binary File

Category:

Screen/Graphics

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Declare Function ExtractIcon Lib "shell32.dll" _ Alias "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function DrawIcon Lib "user32" _ (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, _ ByVal hIcon As Long) As Long Private Declare Function DestroyIcon Lib "user32" _ (ByVal hIcon As Long) As Long

Code:

Public Function IconFromBinary(FileName As String, _
   PictureControl As Object) As Boolean

'*******************************************************
'PURPOSE: Extracts icon from an .exe or .dll file and
'displays it in a PictureBox

'PARAMETERS:

'FileName: Full Path of Binary file
'(.dll or .exe containing the Icon of interest

'ImageControl:  PictureBox to Display Icon In

'RETURNS: True if successful, false otherwise

'EXAMPLE: IconFromBinary ("C:\MyApp.exe", Picture1)

'NOTES:  THIS FUNCTION MUST BE PLACED IN
'A FORM MODULE. IF YOU WANT TO USE IT IN A
'CLASS OR .BAS FILE, YOU MUST ADD A FORM OR
'FORM'S HWND AS A PARAMETER
'*********************************************

On Error GoTo ErrorHandler:
Dim lRet As Long
Dim hIcon As Long
Dim lHdc As Long
Dim sFile As String

If Dir(FileName) = "" Then Exit Function

lHdc = PictureControl.hDC
If lHdc = 0 Then Exit Function

Me.AutoRedraw = True
PictureControl.AutoRedraw = True

sFile = FileName & Chr(0)

hIcon = ExtractIcon(Me.hWnd, sFile, 0)

lRet = DrawIcon(lHdc, 0, 0, hIcon)
If lRet <> 0 Then
    PictureControl.Refresh  
    DestroyIcon hIcon
    IconFromBinary = Err.LastDllError = 0
End If

ErrorHandler:
End Function