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
-------------------------------------------------------
This SF.Net email is sponsored by: INetU
Attention Web Developers & Consultants: Become An INetU Hosting Partner.
Refer Dedicated Servers. We Manage Them. You Get 10% Monthly Commission!
INetU Dedicated Managed Hosting http://www.inetu.net/partner/index.php
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
_________________________________________________________________
Sign-up for a FREE BT Broadband connection today!
http://www.msn.co.uk/specials/btbroadband
