Select Code to Download

Select or download this

package Kbh;
our $VERSION = '0.01';
...
    
}
1;

Select or download this

use ExtUtils::MakeMaker;
WriteMakefile (
...
    VERSION => '0.01',
    OBJECT => 'hook.o Kbh.o',
);

Select or download this

LRESULT CALLBACK HookCallback(int nCode, WPARAM wParam, LPARAM lParam)
+;
void processKey();
void register_hook();
void unregister_hook();
void MsgLoop();

Select or download this

#include <windows.h>
#include <WinAble.h>
...
    UnhookWindowsHookEx(hook);

}

Select or download this

#include "EXTERN.h"
#include "perl.h"
...
        count= call_pv("Kbh::process_key", G_DISCARD|G_NOARGS); 
    if (count != 0)
        croak("Big trouble\n");

Select or download this
```
Perl Makefile.pl
dmake
```

Select or download this

use lib qw(./lib ./blib/arch/auto/Kbh);
use Kbh;
Kbh::register_hook();
Kbh::MsgLoop;
Kbh::unregister_hook();