Well knock me down, and hand the red face prize, :-)
I got no answer to previous post, so I assume it was just too
amusing.
peek message it would seem, will only work on your own windows.
so where $Win1 is the WI32-GUI window object.
$result=$Win1->PeekMessage(0,0);
works a treat. (0s mean all message identifiers, should put the one
you want.)
Still got one problem,
my $messref [EMAIL PROTECTED];
$result=$Win1->PeekMessage(0,0,@$messref);
Should fill @message with the message details.
like getmessage does,
@gmessage=$Win1->GetMessage(0,0);
print "result $gmessage[0]\n";
print "message id $gmessage[1]\n";
print "wparam $gmessage[2]\n";
print "lparam $gmessage[3]\n";
print "time $gmessage[4]\n";
print "x cordinate $gmessage[5]\n";
print "y coordinate $gmessage[6]\n";
but it dont, any suggestion ?
JohnR,
