• Home
 · 
• Graphics
 · 
• Simple program to extract an icon from any file

Simple program to extract an icon from any file

Simple program to extract an icon from any file

API Declarations



Private Const MAX_PATH = 260

Private Type SHFILEINFO
hIcon As Long ' out: icon
iIcon As Long ' out: icon index
dwAttributes As Long ' out: SFGAO_ flags
szDisplayName As String * MAX_PATH ' out: display name (or path)
szTypeName As String * 80 ' out: type name
End Type

Private Const SHGFI_ICON = &H100
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1


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 SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Dim Fico As SHFILEINFO




Rate Simple program to extract an icon from any file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Pic.Picture = LoadPicture()
 SHGetFileInfo File1.List(File1.ListIndex), 0, Fico, Len(Fico), SHGFI_ICON + SHGFI_LARGEICON
 Pic.AutoRedraw = True
 DrawIcon Pic.hdc, 0, 0, Fico.hIcon
 Pic.Picture = Pic.Image
 Pic.AutoRedraw = False

End Sub