Re: Can't change icon with win32 module

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

Comment on Re: Can't change icon with win32 module Download Code

Replies are listed 'Best First'.
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
I used `Win32::FormatMessage(Win32::GetLastError())` but it returns `The operation completed successfully` for both icons (those the do and doe that don't give undef). It even says the same thing if I use a pl file instead of ico, Seems to me to be pretty equivalent to the -e operator.	[reply] [d/l] [select]
Re^5: Can't change icon with win32 module by Anonymous Monk on Sep 23, 2012 at 05:47 UTC
Re^6: Can't change icon with win32 module by palkia (Monk) on Sep 24, 2012 at 03:53 UTC
Re^5: Can't change icon with win32 module by bulk88 (Priest) on Sep 23, 2012 at 03:59 UTC
Re^6: Can't change icon with win32 module by Anonymous Monk on Sep 23, 2012 at 05:45 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
Look at the assembly code, it doesn't do anything but call CsrClientCallServer, which is IPC to CSRSS. Perl is started in one of 2 ways, in an existing console box owned by cmd.exe, or in its own console box owned by perl.exe. SetConsoleIcon will work on both probably, but SetClassLong will only work if the console is owned by perl.exe I guess (start-run-perl.exe). See http://doxygen.reactos.org/dc/d82/win32ss_2user_2win32csr_2console_8c_ae68a35bb4862b3003b0bce3fc08668c3.html#ae68a35bb4862b3003b0bce3fc08668c3 and http://doxygen.reactos.org/de/d8b/dll_2win32_2kernel32_2client_2file_2console_8c_a83d98dc02dd687b40ce9c5e978d46cb7.html#a83d98dc02dd687b40ce9c5e978d46cb7.	[reply]
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]


The stupid question is the question not asked
	PerlMonks