[perl-win32-gui-users] Save icon from Exe file

[Alain M. <ala...@gm...>]

Hi,

Is there a solution in order to save into a file some Icons which has been
extracted from Exe file ?

I didn't find any solution with Win32::GUI::DIBitmap ?

use Win32::Exe;
my $exe = Win32::Exe->new('c:/windows/notepad.exe');

# Dump icons in an executable
foreach my $icon ($exe->icons) {
    printf "Icon: %s x %s (%s colors)\n",
               $icon->Width, $icon->Height, 2 ** $icon->BitCount;
    # How can i store in file those icons ?
    ...
}

Thanks for your answers.