inserthook.~pas

破解“国际领先的Nprotect键盘加密技术”

unit  InsertHook;

interface

procedure InsertHookOn;
procedure InsertHookOff;

implementation

uses
  Windows;

var
  InsertHookHandle: DWORD;
  
function InsertHookPro(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result:= CallNextHookEx(InsertHookHandle, nCode, wParam, lParam);  
end;

procedure InsertHookOn;
begin
  JumpHookHandle := SetWindowsHookEx(WH_GETMESSAGE, @InsertHookPro, HInstance, 0);
end;

procedure InsertHookOff;
begin
  UnHookWindowsHookEx(InsertHookHandle);
end;

end.