getting icon form file

[corgano]

What I need to do is, after you select the file, make an icon controll. I need it to be the icon of the selected file, or the program that opens the select file. What is the best way to do this?

GUICreate("123",100,100)
$file = FileOpenDialog("select file","","all files (*.*)")
GUICtrlCreateIcon()

while 1
    sleep(100)
wend

[BrettF]

Rough example of one way to do it. I seem to remember another way though...

expandcollapse popup

#include <GUIConstantsEx.au3>
;Create GUI
GUICreate(" My GUI Icons", 250, 250)

;Get File
$file = FileOpenDialog("", "", "All Files (*.*)")

;Find Ext
$Ext = StringRegExpReplace($file, "^.*\.", ".$1")

;Read the icon place
$iconplace = RegRead("HKCR\" & $Ext, "")

;Test if icon place exists
If $iconplace Then
;Get icon string format is PATH,ORD
    $icon = RegRead("HKCR\" & $iconplace & "\DefaultIcon", "")
Else
;Get icon string format is PATH,ORD
    $icon = RegRead("HKCR\" & $Ext & "\DefaultIcon", "")
EndIf

MsgBox (0, "", $icon)

;Split string
$split = StringSplit($icon, ",")

;Icon path, replace "
$icon_file = StringReplace ($split[1], '"', '')

;If string contains %SYSTEMROOT% Then we must tell AutoIt to handle it.
If StringInStr ($icon_file, "%") Then
;Save the value so we can set it back
    $old_ExpandEnvStrings = Opt ("ExpandEnvStrings", 1)
EndIf

;Icon
$icon_ord = $split[2]

;Set Icon
$icon = GUICtrlCreateIcon($icon_file, 0 - $icon_ord, 20, 20)

;Set it back
Opt ("ExpandEnvStrings", $old_ExpandEnvStrings)

;Show GUI
GUISetState()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

[Inverted]

That script just gives me a msgbox saying : %1

!?

[GEOSoft]

Rough example of one way to do it. I seem to remember another way though...

expandcollapse popup

#include <GUIConstantsEx.au3>
;Create GUI
GUICreate(" My GUI Icons", 250, 250)

;Get File
$file = FileOpenDialog("", "", "All Files (*.*)")

;Find Ext
$Ext = StringRegExpReplace($file, "^.*\.", ".$1")

;Read the icon place
$iconplace = RegRead("HKCR\" & $Ext, "")

;Test if icon place exists
If $iconplace Then
;Get icon string format is PATH,ORD
    $icon = RegRead("HKCR\" & $iconplace & "\DefaultIcon", "")
Else
;Get icon string format is PATH,ORD
    $icon = RegRead("HKCR\" & $Ext & "\DefaultIcon", "")
EndIf

MsgBox (0, "", $icon)

;Split string
$split = StringSplit($icon, ",")

;Icon path, replace "
$icon_file = StringReplace ($split[1], '"', '')

;If string contains %SYSTEMROOT% Then we must tell AutoIt to handle it.
If StringInStr ($icon_file, "%") Then
;Save the value so we can set it back
    $old_ExpandEnvStrings = Opt ("ExpandEnvStrings", 1)
EndIf

;Icon
$icon_ord = $split[2]

;Set Icon
$icon = GUICtrlCreateIcon($icon_file, 0 - $icon_ord, 20, 20)

;Set it back
Opt ("ExpandEnvStrings", $old_ExpandEnvStrings)

;Show GUI
GUISetState()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

;Find Ext

$Ext = StringRegExpReplace($file, "^.*\.", ".$1")

??????

;Find Ext
$Ext = StringRegExpReplace($file, "^.*(\..+)$", "$1")

[Inverted]

Still doesn't work ? Do I select any exe file that has an ico ?

[corgano]

I also get %1 useing this:

Func _GetIcon($file, $ReturnType = 0)
    $FileType = StringSplit($file, ".")
    $FileType = $FileType[UBound($FileType) - 1]
    $FileParam = RegRead("HKEY_CLASSES_ROOT\." & $FileType, "")
    $DefaultIcon = RegRead("HKEY_CLASSES_ROOT\" & $FileParam & "\DefaultIcon", "")
    
    If Not @error Then
        $IconSplit = StringSplit($DefaultIcon, ",")
        ReDim $IconSplit[3]
        $Iconfile = $IconSplit[1]
        $IconID = $IconSplit[2]
    Else
        $Iconfile = @SystemDir & "\shell32.dll"
        $IconID = -219
    EndIf
    
    If $ReturnType = 0 Then
        Return $Iconfile
    Else
        Return $IconID
    EndIf
EndFunc  ;==>_GetIcon

how do i fix this so the returned value can be used with guictrlcreateicon()?

[ProgAndy]

It should be:

$AutoItIconIndex = -($IconID+1)

[dantay9]

I haven't examined this script yet, but it works. Take a look at how this script works.

[Yashied]

http://www.autoitscript.com/forum/index.php?s=&showtopic=94207&view=findpost&p=676868

[corgano]

I haven't examined this script yet, but it works. Take a look at how this script works.

My previous script was from there. try opening exe's or other files (like .RAR archives). I need one that will always work.

http://www.autoitscript.com/forum/index.php?s=&showtopic=94207&view=findpost&p=676868

WOW. This will work perfectly. All I need now is getting the icon of an exe. Edited June 18, 2009 by corgano

[dantay9]

Sorry. I didn't look into the script, I just had the program so I posted it. I did find out that .exe files wont work.

[Valuater]

.... All I need now is getting the icon of an exe.

This does it the easy way!!

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

8)

[corgano]

Sorry. I didn't look into the script, I just had the program so I posted it. I did find out that .exe files wont work.

Thats the odd thing about that script. Sometimes they do, sometimes they don't.

This does it the easy way!!

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

8)

Could you take the part out that gets the icon and put it in a standalone example? I couldnt find what part it was. Edited June 18, 2009 by corgano

[Valuater]

Maybe...

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

GUICreate("My GUI") ; will create a dialog box that when displayed is centered
GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, @WindowsDir & "\notepad.exe", "", 1)
GUISetState()

While GUIGetMsg() <> -3
WEnd

8)

[corgano]

Maybe...

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

GUICreate("My GUI") ; will create a dialog box that when displayed is centered
GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, @WindowsDir & "\notepad.exe", "", 1)
GUISetState()

While GUIGetMsg() <> -3
WEnd

8)

Found problem. I am useing guictrlcreateicon()

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

GUICreate("My GUI"); will create a dialog box that when displayed is centered
;$icon = GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
$icon = GUICtrlCreateIcon("","", 1, 2)
$file = FileOpenDialog("123",@DesktopDir,"all files(*.*)")
GUICtrlSetImage($icon, $file , "", 1)
GUISetState()

While GUIGetMsg() <> -3
WEnd

Works fine with button, but doesnt work with icon

Edited June 18, 2009 by corgano

[Valuater]

Did you look at the example in help??

I just added notepad...... thats all!!

GUICreate(" My GUI Icons", 250, 250)

$icon = GUICtrlCreateIcon("shell32.dll", 10, 20, 20)
$n1 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 20, 40, 32, 32)
$n2 = GUICtrlCreateIcon("shell32.dll", 7, 20, 75, 32, 32)
$n2 = GUICtrlCreateIcon(@WindowsDir & "\notepad.exe", -1, 20, 115, 32, 32)
GUISetState()

While GUIGetMsg() <> -3
WEnd

8)

[corgano]

For anyone wanting to know why I need this, I have included the script i am going to add it to.

icon_box.au3