keyboard.dpr

Delphi 全局HOOK屏蔽键盘输入的源代码

library keyboard;
uses
  Windows,
  SysUtils,
  Classes,
  Messages;

type
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    ScanCode: DWORD;
    Flags: DWORD;
    Time: DWORD;
    dwExtraInfo: DWORD;
  end;
var
  hhk: HHOOK;
{$R *.res}
function HookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  p: PKBDLLHOOKSTRUCT;
  y: Integer;
begin
  y:= 0;
  if nCode = HC_ACTION then
  begin
    case WParam of
      WM_KEYDOWN, WM_SYSKEYDOWN:
      begin
        p:= PKBDLLHOOKSTRUCT(Lparam);
        //测试当 160（左 Shift 键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 160 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 161（右 Shift 键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 161 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 32（空格键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 32 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 160（左 Shift 键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 160 then if GetKeyState(163) < 0 then y:= 1;
        //测试当 161（右 Shift 键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 161 then if GetKeyState(163) < 0 then y:= 1;
        //测试当 32（空格键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 32 then if GetKeyState(163) < 0 then y:= 1;
      end;
      WM_KEYUP, WM_SYSKEYUP:
      begin
        p:= PKBDLLHOOKSTRUCT(Lparam);
        //测试当 160（左 Shift 键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 160 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 161（右 Shift 键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 161 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 32（空格键） 和 162（左 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 32 then if GetKeyState(162) < 0 then y:= 1;
        //测试当 160（左 Shift 键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 160 then if GetKeyState(163) < 0 then y:= 1;
        //测试当 161（右 Shift 键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 161 then if GetKeyState(163) < 0 then y:= 1;
        //测试当 32（空格键） 和 163（右 Ctrl 键） 也按下的同时 触发事件
        if p^.vkCode = 32 then if GetKeyState(163) < 0 then y:= 1;
      end;
    end;
  end;
  if y = 1 then Result:= 1 else Result:= CallNextHookEx(hHk,nCode,WParam,LParam);
end;
function InstKeyBoard: Boolean; stdcall; export;
begin
  if hhk  <> 0 then
  begin
    Result:= False;
    Exit;
  end;
  hhk:= SetWindowsHookEx(13, @HookProc, HINSTANCE, 0);
  Result:= hhk  <> 0;
end;
function UnInstKeyBoard: Boolean; stdcall; export;
begin
  if hhk  <> 0 then
  begin
    UnhookWindowshookEx(hhk);
    hhk:= 0;
  end;
  Result:= hhk = 0;
end;
exports
  InstKeyBoard,
  UnInstKeyBoard;
begin
end.