hookdll1.dpr

来自「当运行本软件时」· DPR 代码 · 共 46 行

library hookdll1;
uses
  Windows,
  SysUtils,
  Messages;

var
  KeyHook: HHook;

function HookKey(Code: integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
type
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    ScanCode: DWORD;
    Flags: DWORD;
    Time: DWORD;
    dwExtraInfo: DWORD;
  end;
begin
    //屏蔽ctrl键
  if (Code = HC_ACTION) and ((PKBDLLHOOKSTRUCT(lParam).vkCode = VK_Control)
   or (PKBDLLHOOKSTRUCT(lParam).vkCode = VK_ESCAPE)) then begin
    Result := 1
  end
  else
    Result := CallNextHookEx(KeyHook, Code, wParam, lParam);
end;

procedure BeginHook1;
begin
  KeyHook := SetWindowsHookEx(13{=WH_KEYBOARD_LL}, @HookKey, HInstance, 0);
end;

procedure EndHook1;
begin
  UnhookWindowsHookEx(KeyHook);
end;

exports
  BeginHook1, EndHook1;

begin

end.