如何改变perl win32::GUI窗口标题栏图像

Question

在windows操作系统中使用Perl Win32::GUI模块开发桌面应用程序时，在标题栏(窗口最左边的图像)出现了一个"camel"图像。
有可能改变这个吗?如果是的,什么样的图像将支持(.gif，.png，.jpg，.ico) ?和我需要在我下面写的设计窗口中更改/添加哪个属性?

  use strict;
  use Win32::GUI;
  my $main = Win32::GUI::Window->new(
    -name    => "Main",
    -title   => "Win32-GUI:Test",
    -left    => 100,
    -top     => 100,
    -width   => 600,
    -height  => 400,
  );
  sub Main_Terminate() {
    print "Main window terminatedn";
    return -1;
  }

  $main->Show();
 Win32::GUI::Dialog();

注意:我正在开发windows XP的应用程序

Answer 1

是有可能的。使用主窗口的SetIcon方法

$main->SetIcon($icon);

其中$icon必须是Win32::Icon, Win32::Bitmap或Win32::BitmapInline的实例。