Win32::GUI::BitmapInline worked really well. Thanks!
Regards,
Sam Dela Cruz
You could try Win32::GUI::BitmapInline, from the docs:
This module can be used to "inline" a bitmap file in your script, so
that it doesn't need to be accompained by several external files
(less hassle when you need to redistribute your script or move it
to another location).
cheers,
jez.
>From: [EMAIL PROTECTED]
>To: perl-win32-gui-users@lists.sourceforge.net
>Subject: [perl-win32-gui-users] extract icons from shell32.dll and use it
>in image list
>Date: Wed, 18 Jun 2003 10:44:51 -0700
>
>Hi Win32 GUI Experts,
>
>This is in connection with Alex Lee's postings last year about
>Win32::GUI::DIBitmap. I tried doing the following, but it doesn't work.
>Was there any solution for this one?
>
>my $A = 0;
>my $B = 'shimgvw.dll';
>my $apiExecute = new Win32::API("Shell32", "ExtractIcon",
>['P','P','N'],'N');
>my $hIcon= $apiExecute->Call($A,$B,1);
>use Win32::GUI::DIBitmap;
>my $dib = newFromBitmap Win32::GUI::DIBitmap($hIcon) or die "no $!";
>$hbitmap = $dib->ConvertToBitmap();
>$IL = new GUI::ImageList(16, 16, 24, 3, 10);
>$IL->Add("folder.bmp");
>$IL->Add($hbitmap);
>
>There is this small utility that I'm gonna send to my users network wide,
>but I don't want to send it together with a bunch of bmp files. So, I
>wanted to use the Windows icon stock in Shell32.dll to dynamically create
>the images. Is there any other way of doing this? Or perhaps, it is
>possible to include the bmp files in the executables using PDK4, PerlApp
>utility?
>
>
>Thanks and Regards,
>Sam Dela Cruz
