http://www.purebasic.com
https://www.purebasic.fr/english/
Hm. I guess I"m confused -- how do I use LoadImage() with the handle from ExtractIcon_()?IdeasVacuum wrote:You will need to parse all the icon images in the file (use -1 as the last value of ExtractIcon_ to get the image total).
For each image, LoadImage() followed by ImageHeight(), ImageWidth() and ImageDepth() (if necessary, not sure what you mean by 'format' - it can only be a bitmap).
That's it.
Code: Select all
File.s = "shell32.dll" ; Contains a lot of icons
IconCount = ExtractIcon_(0, File, -1)
IconMax = IconCount-1
Dim Icons.i(IconMax)
For I = 0 To IconMax
Icons(I) = ExtractIcon_(0, File, I)
Next
#W = 512
#H = 384
OpenWindow(0, 0, 0, #W, #H, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ListIconGadget(0, 10, 10, 400, 300, "Small icons", 96)
SetGadgetAttribute(0, #PB_ListIcon_DisplayMode, #PB_ListIcon_LargeIcon)
For I = 0 To IconMax
AddGadgetItem(0, 0, "", Icons(I))
Next
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
True, but when it's an exe that has several sizes of the same icon, you want to be able to choose just the one that suits your needs - to do that, you need the size.Trond wrote:You don't have to turn it in to a pb image to use it in the list icon gadget:
I know how to get the size of an api HICON easily, that's not the problem. The problem is that ExtractIcon_() returns a 32x32 icon no matter what format the icon has in the file.True, but when it's an exe that has several sizes of the same icon, you want to be able to choose just the one that suits your needs - to do that, you need the size.
The combobox, just like the listicon takes a handle.but the combobox wants an image#
Code: Select all
#SHGFI_ADDOVERLAYS = $20
; #SHGFI_SHELLICONSIZE
; #SHGFI_SMALLICON
; #SHGFI_LARGEICON
File.s = "c:\lorem.txt"
SHGetFileInfo_(File, 0, @info.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_ADDOVERLAYS | #SHGFI_ICON | #SHGFI_SMALLICON)
Debug info\hIcon
#W = 512
#H = 384
OpenWindow(0, 0, 0, #W, #H, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ListIconGadget(0, 10, 10, 400, 300, "Small icons", 96)
ComboBoxGadget(0, 10, 10, 200, 22, #PB_ComboBox_Image)
AddGadgetItem(0, 0, "", info\hIcon)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEverCode: Select all
#SHGFI_ADDOVERLAYS = $20
; #SHGFI_SHELLICONSIZE
; #SHGFI_SMALLICON
; #SHGFI_LARGEICON
Procedure GetHandlerIcon( cExtension.s )
Protected *memBuffer
Protected fileInfo.SHFILEINFO
Protected cTempFile.s, i.i=0
Protected hndIcon = #NUL
*memBuffer = AllocateMemory(1024)
If *memBuffer
; Just check that we have a dot in the extension.
If Left(cExtension,1)<>"." : cExtension = "."+cExtension : EndIf
; find a unique temporary file
Repeat
cTempFile = "~tmp"+RSet(Str(i),5,"0")
i+1
Until FileSize( GetTemporaryDirectory() + cTempFile+cExtension ) = -1
cTempFile = cTempFile+cExtension
; Create a blank file -- the file's existance is required for FindExecutable()
CloseFile(OpenFile(#PB_Any, GetTemporaryDirectory()+cTempFile ))
; get the executable releated to the extension
If FindExecutable_(cTempFile,GetTemporaryDirectory(),*memBuffer) > 32
; fetch the information about that executable.
SHGetFileInfo_(PeekS(*memBuffer), 0, @fileInfo, SizeOf(SHFILEINFO), #SHGFI_ADDOVERLAYS | #SHGFI_ICON | #SHGFI_SMALLICON)
; now grab the icon's handle
hndIcon = fileInfo\hIcon
EndIf
; Clean up our mess
DeleteFile(GetTemporaryDirectory()+cTempFile )
FreeMemory(*memBuffer)
EndIf
ProcedureReturn hndIcon
EndProcedure
#W = 512
#H = 384
OpenWindow(0, 0, 0, #W, #H, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ListIconGadget(0, 10, 10, 400, 300, "Small icons", 96)
ComboBoxGadget(0, 10, 10, 200, 22, #PB_ComboBox_Image)
AddGadgetItem(0, 0, "*.txt", GetHandlerIcon(".txt"))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
Good point. Some things, for instance, .mdb (an MSSQL file) doesn't show a default icon -- but I know what it is; so I grab the exe -- I was focused on that specific issue and overlooked the broader view. I modified it to get the file's icon 1st, if that fails, then go to the exe, if that fails, just show a generic one...Trond wrote:Your approach is wrong. You should get the icon directly from the file of the relevant type, not from the executable. An executable may contain multiple different icons. With your approach you'll always get the first. But the icon of a filetype may be one of the other icons in the executable.