delphi_键盘记录例子

unitkeyboard_hook;interfaceusesWindows,Messages;constWM_HookKEY=WM_USER+$1000;procedureHookOn;stdcall;procedureHookOff;stdcall;implementationvarHook:HHOOK;FileMapHandle:THandle;PViewInteger:^Integer;functionCallHook(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;beginifiCode=HC_ACT