[perl-win32-gui-users] hack message queue and get particular message

[Renat Araslanow]

how i can subj? strictly speaking i want get WM_HELP message to process help
button that appears in title when we create window with following tags

        -helpbutton=>1,
        -maximizebox=>0,
        -minimizebox=>0,

here a sample prog that not work. somebody can help me (except God, of
course =)?

use Win32::GUI;
    my $main_window=new Win32::GUI::Window(
        -name=>"main_window",
        -title=>"main window",
        -pos=>[100,50],
        -size=>[500,500],
        -helpbutton=>1,
        -maximizebox=>0,
        -minimizebox=>0,
        );

    $main_window->AddTabStrip(
        -justify=>1,
        -name=>"tabs",
        -pos=>[0,0],
        -helpId=>10,
        -size=>[400,500]);

    $main_window->tabs->InsertItem(-text=>"first");
    $main_window->tabs->InsertItem(-text=>"#####",);

    $main_window->Show();
    #Win32::GUI::Dialog();
    open FH,"> zzz";
    while(1)
    {
        my @msg;

        print "founded!!" if Win32::GUI::PeekMessage(0x0053,0x0053,[EMAIL 
PROTECTED]);
        print "@msg";
        my $z=unpack('IiiLLllpl',$msg[3]);
        print $z;
        Win32::GUI::DoEvents();
        select(undef, undef, undef, 0.5);
    }

sub main_window_Terminate
{
    exit;
    return -1;
}

PS% sorry for my awful English. =(