unit keyboard_hook; interface uses Windows,Messages; const WM_HookKEY=WM_USER+$1000; procedure HookOn;stdcall; procedure HookOff;stdcall; implementation var Hook:HHOOK; FileMapHandle:THandle; PViewInteger:^Integer; function CallHook(iCode:Integer;wP