change icon of the running application

[LoWang]

Hello, I know I can change a window title by WinSetTitle, but is it somehow possible to also change icon of the window and in the taskbar? Changing the icon in the executable file via resource hacker or other tools unfortunatelly corrupted it so I want to do it runtime.

[boogieoompa]

GUISetIcon but youll need it to be a .ico I believe.

example...

$gui = GUICreate("Test",500,500,500,500)
            GuiSetIcon("Myicon.ico", 0)

[LoWang]

I want to change icon of any application. Not just my script I made, so this is not it I think...

[Yashied]

It is unlikely that you can do it. Even if you try, you will get an error - Access is denied.

Edited October 16, 2009 by Yashied

[LoWang]

Hm that's bad. I hoped maybe somebody knows some hack :-] Maybe if my script runs the app process then it would have permissions to do this with it...?

[LoWang]

bump...

[trancexx]

This?

_GUISetIcon(WinGetHandle("[ACTIVE]", ""), "shell32.dll", 322) ; name, not ordinal value



Func _GUISetIcon($hGui, $sModule, $iName) ; for loaded modules in this shape

    Local $a_hCall = DllCall("kernel32.dll", "hwnd", "GetModuleHandleW", "wstr", $sModule)

    Local $hModule = $a_hCall[0]

    $a_hCall = DllCall("user32.dll", "hwnd", "LoadImageW", _
            "hwnd", $hModule, _
            "int", $iName, _
            "dword", 1, _ ; IMAGE_ICON
            "int", 32, _
            "int", 32, _
            "dword", 0) ; LR_DEFAULTCOLOR

    Local $hIcon = $a_hCall[0]

    DllCall("user32.dll", "hwnd", "SendMessageW", _
            "hwnd", $hGui, _
            "dword", 0x0080, _ ; WM_SETICON
            "dword", 1, _ ; 1 = ICON_BIG, 0 = ICON_SMALL
            "ptr", $hIcon)

EndFunc   ;==>_GUISetIcon

That will change the SciTE icon if you are running scripts there.

[LoWang]

This?

_GUISetIcon(WinGetHandle("[ACTIVE]", ""), "shell32.dll", 322) ; name, not ordinal value



Func _GUISetIcon($hGui, $sModule, $iName) ; for loaded modules in this shape

    Local $a_hCall = DllCall("kernel32.dll", "hwnd", "GetModuleHandleW", "wstr", $sModule)

    Local $hModule = $a_hCall[0]

    $a_hCall = DllCall("user32.dll", "hwnd", "LoadImageW", _
            "hwnd", $hModule, _
            "int", $iName, _
            "dword", 1, _ ; IMAGE_ICON
            "int", 32, _
            "int", 32, _
            "dword", 0) ; LR_DEFAULTCOLOR

    Local $hIcon = $a_hCall[0]

    DllCall("user32.dll", "hwnd", "SendMessageW", _
            "hwnd", $hGui, _
            "dword", 0x0080, _ ; WM_SETICON
            "dword", 1, _ ; 1 = ICON_BIG, 0 = ICON_SMALL
            "ptr", $hIcon)

EndFunc   ;==>_GUISetIcon

That will change the SciTE icon if you are running scripts there.

Hello, thanks for reply but still you did not understand my request - I want to know some way how to change icon of ANY application, not just my script. Can this code be used someway like running some exe file from my script via run and then change icon of its window for example?

[picaxe]

I want to know some way how to change icon of ANY application, not just my script.

Substitute the window handle of your application for the first param of the function.