Hi folks,
I'm trying to capture keyboard events using SetWindowsHookEx(). I've
tried to set this up using the Win32::API and Win32::API::Callback
modules. But I'm not getting any events. Any ideas? Here's my code:
use warnings;
use strict;
use Tk;
use Win32::API;
use Win32::API::Callback;
my $WH_KEYBOARD_LL = 13;
sub KeyboardHook($$$) {
my ($nCode, $wParam, $lParam) = @_;
print "nCode=$nCode, wParam=$wParam, lParam=$lParam\n";
}
my $win = MainWindow->new();
my $SetWindowsHookEx =
new Win32::API('user32', 'SetWindowsHookEx', 'IKPP');
my $KeyboardHookCallback =
new Win32::API::Callback(\&KeyboardHook, 'NNP', 'N');
$SetWindowsHookEx->Call($WH_KEYBOARD_LL, $KeyboardHookCallback, 0, 0);
MainLoop();
--
Lyle Kopnicky
Software Project Engineer
Veicon Technology, Inc.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
