jumphook.pas

来自「键盘鼠标动作的记录和回放」· PAS 代码 · 共 34 行

unit  JumpHook;

interface

procedure JumpHookOn;
procedure JumpHookOff;

implementation

uses
  Windows,Messages;

var
  JumpHookHandle: DWORD; 

function JumpHookPro(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result:= CallNextHookEx(JumpHookHandle, nCode, wParam, lParam);
end;


procedure JumpHookOn;
begin
  JumpHookHandle := SetWindowsHookEx(WH_GETMESSAGE, @JumpHookPro, HInstance, 0);
end;

procedure JumpHookOff;
begin
  UnHookWindowsHookEx(JumpHookHandle);
end;

end.