Can't change icon with win32 module

palkia has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Can't change icon with win32 module by bulk88 (Priest) on Sep 22, 2012 at 04:02 UTC
Tried SetIcon? I couldn't easily find anything that allows you to create a Win32::GUI object around a HWND. You might have to look in the source of Win32::GUI and figure out what a Window object is and how to fake one for SetIcon and ChangeIcon. edit: per https://github.com/gitpan/Win32-GUI/blob/master/GUI.xs#L1788 and http://msdn.microsoft.com/en-us/library/windows/desktop/ms633588%28v=vs.85%29.aspx considered checking the return value of ->ChangeIcon() and then checking GetLastError? per https://github.com/gitpan/Win32-GUI/blob/master/TYPEMAP HWND and HICON objects are either a hash ref with a "-handle" slice with a integer in that slice, or just an integer like 123. ChangeIcon isnt really method either, its a sub. You should use it as a sub not a method. Although method will maybe sometimes work. Win32::GUI's docs do a poor job of explaining the return values of anything and method vs sub call syntax.	[reply]
Re^2: Can't change icon with win32 module by Anonymous Monk on Sep 22, 2012 at 06:33 UTC
Win32::GUI object around a HWND You can fake it with bless, but it isn't required, every Win32::GUI method is also a function, it will take a hwnd as first argument	[reply]
Re: Can't change icon with win32 module by Anonymous Monk on Sep 22, 2012 at 07:11 UTC
Its me again, some code for you #!/usr/bin/perl -- #~ wget -c -O perlmonks.favicon.ico http://perlmonks.org/favicon.ico use strict; use warnings; use Data::Dump; use Win32::GUI(); my $icon = 'Win32::GUI::Icon'->new( 'perlmonks.favicon.ico' ) or die $^E; my $cmd = Win32::GUI::GetPerlWindow() or die $^E; dd [ $cmd, $^E ]; dd [ Win32::GUI::ChangeIcon($cmd, $icon) , $^E ]; ## "Access is denied +" as expected BEGIN { use Win32::API; Win32::API::->Import("kernel32","BOOL SetConsoleIcon(HWND icon )") +; } $^E=0; dd [ SetConsoleIcon( $icon->{-handle} ), $^E ]; ## UNDOCUMENTED + MAGIC __END__ [46334276, ""] [0, "Access is denied"] [1, ""] [download] SetConsoleIcon() naturally works where ChangeIcon() fails	[reply] [d/l]
Re^2: Can't change icon with win32 module by palkia (Monk) on Sep 22, 2012 at 16:54 UTC
Won't seem to go online for me for some reason, but I just wanted it to use my icons anyway, so after some tweaking it worked gr8 (thank you very very much). In my version `use Win32::GUI(); use Win32::API; Win32::API->Import('kernel32','BOOL SetConsoleIcon(HWND icon)'); SetConsoleIcon( Win32::GUI::Icon->new('box.ico')->{-handle} );` [download] For some reason it only works for some icons. It seems that `Win32::GUI::Icon->new('box.ico')` returns undef for some icons, or to be exact, it does the same as in the case I refer to a non-existing icon. Some icon-format limitation ?	[reply] [d/l] [select]
Re^3: Can't change icon with win32 module by bulk88 (Priest) on Sep 22, 2012 at 18:23 UTC
Tried checking Win32::GetLastError() if creating an Win32::GUI::Icon failed?	[reply]
Re^4: Can't change icon with win32 module by palkia (Monk) on Sep 22, 2012 at 19:21 UTC
Re^5: Can't change icon with win32 module by Anonymous Monk on Sep 23, 2012 at 05:47 UTC
Some notes below your chosen depth have not been shown here
Re^5: Can't change icon with win32 module by bulk88 (Priest) on Sep 23, 2012 at 03:59 UTC
Some notes below your chosen depth have not been shown here
Re^2: Can't change icon with win32 module by bulk88 (Priest) on Sep 22, 2012 at 08:40 UTC
SetConsoleIcon is implemented as an IPC message/call to CSRSS.	[reply]
Re^3: Can't change icon with win32 module by Anonymous Monk on Sep 22, 2012 at 08:50 UTC
SetConsoleIcon is implemented as an IPC message/call to CSRSS. I figured it was something like that :) but how do you know, its undocumented?	[reply]
Re^4: Can't change icon with win32 module by bulk88 (Priest) on Sep 22, 2012 at 16:29 UTC
Re^3: Can't change icon with win32 module by bulk88 (Priest) on Sep 23, 2012 at 09:57 UTC
How reactos's CSRSS changes the icon, http://doxygen.reactos.org/d3/dfd/guiconsole_8c_a1553483ef5da4540b9b12788b0171050.html#a1553483ef5da4540b9b12788b0171050.	[reply]
Re: Can't change icon with win32 module by Anonymous Monk on Sep 21, 2012 at 22:14 UTC
What am I doing wrong ? Well, you seem to be assuming that what you're trying to do is allowed/possible -- I don't think it is, but I've long ago given up on win32/msdn	[reply]
Re^2: Can't change icon with win32 module by palkia (Monk) on Sep 22, 2012 at 01:18 UTC
This is very encouraging ^^. What do you use instead of win32 ? I tired both wx and gtk2 but I got tired of trying to figure out why both won't work. If I remember correctly, it was some install problem or something. So if you got alternatives to offer, please exclude these 2.	[reply]
Re^3: Can't change icon with win32 module by Anonymous Monk on Sep 22, 2012 at 02:09 UTC
This is very encouraging Well, trying to change the icon on a console is kind of a weird thing to do :) I tired both wx and gtk2 but I got tired of trying to figure out why both won't work. If I remember correctly, it was some install problem or something. So if you got alternatives to offer, please exclude these 2. Yeah, I'd go with Wx, it comes with dwimperl/citrusperl, and is available via ppm for activeperl or any ppm capable perl FWIW, Gtk2 is available via some PPM::Repositories, but I prefer Wx	[reply]