How to find the default icon of a (non exe) file

[GreenCan]

Hi,

Does anyone know how to get the default icon of a file?

I mean of a file with no embedded icon of course, more precisely for the files for which GUICtrlSetImage() returns 0

I couldn't find a function for this. Or am I wrong?

Check following topic to understand what i mean if my question is not clear enough:

http://www.autoitscript.com/forum/index.ph...st&p=623891

Thanks

GreenCan

[FireFox]

Iconator perhaps ... http://www.autoitscript.com/forum/index.php?showtopic=75167

Cheers, FireFox.

[Aceguy]

hello i came across the same problem, and did it like this.

$tst=_WinAPI_ExtractIconEx($file,0,0,0,0)
                        ConsoleWrite("tst  -->"&$tst&@lf)
                        if $tst<> 0 Then 
                        $index = _GUIImageList_AddIcon($hImage, $file, 0, True)
                        _GUICtrlListView_AddItem($hListView, $str, $index)
                        Else
                        $index = _GUIImageList_AddIcon($hImage, @ScriptDir & "\icons\093_imageres.ico", 0, True)
                        _GUICtrlListView_AddItem($hListView, "No Icon! - " & $str, $index)
                        EndIf

This will not work as a script on its own, but you can get the idea from this.

Bascically test to see if icon can be extracted, if not, add your own icon.

Edited January 2, 2009 by Aceguy

[rasim]

@GreenCan

Example:

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>

$hGUI = GUICreate("Test GUI", 300, 200)

$cMenu_File = GUICtrlCreateMenu("&File")

$cMenuItem_Open = GUICtrlCreateMenuItem("Open", $cMenu_File)

$cListView = GUICtrlCreateListView("Items", 10, 10, 280, 160)

$hImage = _GUIImageList_Create(16, 16, 5, 3, 1)
_GUICtrlListView_SetImageList($cListView, $hImage, 1)

GUICtrlSendMsg($cListView, $LVM_SETCOLUMNWIDTH, 0, 200)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cMenuItem_Open
            $sFile = FileOpenDialog("Select file", "", "All files (*.*)", 1, "", $hGUI)
            If Not @error Then
                $hIcon = _ExtractAssociatedIcon($hGUI, $sFile)
                $Index = _ImageList_AddIcon($hImage, $hIcon)
                _DestroyIcon($hIcon)
                _GUICtrlListView_InsertItem($cListView, $sFile, -1, $Index)
            EndIf
    EndSwitch
WEnd

Func _ExtractAssociatedIcon($hWnd, $sFile)
    Local $aRet = DllCall("shell32.dll", "hwnd", "ExtractAssociatedIcon", _
                                                 "hwnd", $hWnd, _
                                                 "str", $sFile, _
                                                 "short*", 0)
    Return $aRet[0]
EndFunc   ;==>_ExtractAssociatedIcon

Func _ImageList_AddIcon($hImage, $hIcon)
    Local $aRet = DllCall("comctl32.dll", "int", "ImageList_AddIcon", _
                                                 "hwnd", $hImage, _
                                                 "hwnd", $hIcon)
    Return $aRet[0]
EndFunc   ;==>_ImageList_AddIcon

Func _DestroyIcon($hIcon)
    Local $aRet = DllCall("user32.dll", "int", "DestroyIcon", _
                                               "hwnd", $hIcon)
    Return $aRet[0]
EndFunc   ;==>_DestroyIcon

[Aceguy]

Rasim, your soooo goood

[GreenCan]

He thanks guys,

I'll dig into the examples.

Cheers

GreenCan

[MrCreatoR]

Very nice example rasim!

Btw, perhaps you should post a Feature Request for _WinAPI_ExtractAssociatedIcon() + change the _GUIImageList_AddIcon() function so it could accept $hIcon, not only a file path, like this for example:

Func _GUIImageList_AddIcon($hWnd, $sFile, $iIndex = 0, $fLarge = False)
    Local $tIcon, $iResult, $hIcon

    $tIcon = DllStructCreate("int Handle")
    
    If FileExists($sFile) Then
        If $fLarge Then
            $iResult = _WinAPI_ExtractIconEx($sFile, $iIndex, DllStructGetPtr($tIcon), 0, 1)
        Else
            $iResult = _WinAPI_ExtractIconEx($sFile, $iIndex, 0, DllStructGetPtr($tIcon), 1)
        EndIf
        
        _WinAPI_Check("_GUIImageList_AddIcon", ($iResult <= 0), -1)
        $hIcon = DllStructGetData($tIcon, "Handle")
    Else
        $hIcon = $sFile ;Handle?
    EndIf
    
    $iResult = _GUIImageList_ReplaceIcon($hWnd, -1, $hIcon)
    _WinAPI_Check("_GUIImageList_AddIcon", ($iResult = -1), -2)
    _WinAPI_DestroyIcon($hIcon)
    Return $iResult
EndFuncoÝ÷ ØêÞ½éÚuÖºw-ÛB¨.+-×HrÄÇöÚºÚ"µÍ[ÈÑÕRR[XYÙSÝÐYXÛÛ^
    ÌÍÚÛ    ÌÍÜÑ[K  ÌÍÚR[^H
BRY[Q^ÝÊ  ÌÍÜÑ[JH[BIÌÍÚTÝ[HØ[
    ][ÝÜÚ[Ì ][ÝË  ][ÝÚÛ    ][ÝË  ][ÝÑ^XÝÜÛØÚX]YXÛÛ][ÝË    ][ÝÚÛ    ][ÝË  ÌÍÚÛ    ][ÝÜÝ][ÝË  ÌÍÜÑ[K  ][ÝÜÚÜ
][ÝË
BBIÌÍÚXÛÛH ÌÍÚTÝ[ÌBQ[ÙBBIÌÍÚXÛÛH    ÌÍÜÑ[HÒ[OÂQ[YBSØØ[  ÌÍÚTÝ[HÑÕRR[XYÙSÝÔXÙRXÛÛ    ÌÍÚÛLK  ÌÍÚXÛÛBWÕÚ[TWÐÚXÚÊ   ][Ý×ÑÕRR[XYÙSÝÐYXÛÛ][ÝË
    ÌÍÚTÝ[HLJKLJBWÕÚ[TWÑÝÞRXÛÛ   ÌÍÚXÛÛBBT] ÌÍÚTÝ[[[

[Zedna]

VERY nice example rasim as obvious!!!

This would be good in standard includes.