hookdll.dpr

当运行本软件时

library hookdll;
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
//屏蔽win键
  if (Code = HC_ACTION) and ((PKBDLLHOOKSTRUCT(lParam).vkCode = VK_LWIN)
    or (PKBDLLHOOKSTRUCT(lParam).vkCode = VK_RWIN)) then begin
    Result := 1
  end
  else
    Result := CallNextHookEx(KeyHook, Code, wParam, lParam);


end;

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

procedure EndHook;
begin
  UnhookWindowsHookEx(KeyHook);
end;

exports
  BeginHook, EndHook;

begin

end.