#!/usr/bin/perl --
use strict; use warnings;
use Win32::GUI();
use Win32::API;
Win32::API->Import('kernel32','BOOL SetConsoleIcon(HWND icon)');

@ARGV or @ARGV = map { glob $_ }
    "C:/Progra~1/*.ico",
    "C:/Progra~1/*/*.ico",
    "C:/Progra~1/*/*/*.ico",
    "C:/Progra~1/*/*/*/*.ico",
#~     "C:/Progra~1/*/*/*/*/*.ico",
    "C:/WINDOWS/*/*.ico",
    "C:/WINDOWS/*/*/*.ico",
    "C:/WINDOWS/*/*/*/*.ico",
#~     "C:/WINDOWS/*/*/*/*/*.ico",
#~     "C:/WINDOWS/*/*/*/*/*/*.ico",
#~     "C:/WINDOWS/*/*/*/*/*/*/*.ico",
;;;;

    
for my $file ( @ARGV ){
    print "$file\n";
    eval {
        my $icon = Win32::GUI::Icon->new( $file )
            or die sprintf qq/ErrIcon \$!(%d)(%s)\n\$^E(%d)(%s)\nGLS(%d)(%s)/,
                $!,$!,$^E,$^E,
                Win32::GetLastError(),
                Win32::FormatMessage(Win32::GetLastError())
            ;;;;; 
        SetConsoleIcon( $icon->{-handle} )
            or die sprintf qq/ErrSet \$!(%d)(%s)\n\$^E(%d)(%s)\nGLS(%d)(%s)/,
                $!,$!,$^E,$^E,
                Win32::GetLastError(),
                Win32::FormatMessage(Win32::GetLastError())
            ;;;;; 
        1;
    } or warn "$@\n\n";
    sleep 1;
}

SetConsoleIcon( undef );## restore
__END__
$ perl sicon.pl sicon.pl perlmonks.favicon.ico sicon.pl
sicon.pl
ErrIcon $!(2)(No such file or directory)
$^E(0)()
GLS(0)(The operation completed successfully.
) at sicon.pl line 25.


perlmonks.favicon.ico
sicon.pl
ErrIcon $!(2)(No such file or directory)
$^E(0)()
GLS(0)(The operation completed successfully.
) at sicon.pl line 25.