Perl] Win32::GUI SendMessage

[t.korth]

Hi Leutz,

hab noch nie mit Windows-Events gearbeitet und muss folgendes Problem lösen.

---- sender.pl ---- >>>

#!/usr/local/bin/perl -w

use Win32::GUI;

use Win32::API;

use constant HWND_BROADCAST => -1;

use constant WM_SETTINGCHANGE => 0x1a;

my $MSG = 2000;

my $id=Win32::GUI::PostMessage(HWND_BROADCAST,$MSG,0,5);

print $id;

<<< ---- sender.pl -----

---- receiver.pl ---- >>>

#!/usr/local/bin/perl -w

use Win32::GUI;

$W2 = new Win32::GUI::Window(

-name => "W2",

-title => "Second Window",

-pos => [ 150, 150 ],

-size => [ 300, 200 ],

);

$W2->Show();

Win32::GUI::Dialog();

<<< ---- receiver.pl -----

Wie kann ich in receiver.pl jetzt die Nachricht abfangen, die sender.pl an alle offenen Fenster geschickt hat?!

Tino