Jak założyć globalnego Hooka niskiego poziomu na klawiaturę

Czasami założenie zwykłego globalnego Hooka na klawiaturę nie załatwia sprawy. Są klawisze, jak np. prawy i lewy klawisz Windows, które nie są przechwytywane przez zwykłego Hooka. Tutaj przedstawię sposób na zablokowanie ich.

Wrzuć na formę dwa przyciski. Uzupełnij sekcję interface następująco:

  public
    { Public declarations }
    procedure LockSystem; //Blokujemy system
    procedure UnLockSystem; //I odblokowujemy
  end;

var
  Form1: TForm1;
  HookID: HHOOK; //ID naszego Hooka. Żeby można było z powrotem wyłączyć

{ Typ TKbdDllHookStruct wykorzystywany przez Hook niskiego poziomu na klawiaturę. Delphi niestety nie zapewnia }
type
  PKbdDllHookStruct = ^TKbdDllHookStruct;
  TKbdDllHookStruct = record
    vkCode,
    ScanCode,
    Flags,
    Time,
    dwExtraInfo: Integer;
  end;

const
  WH_KEYBOARD_LL = 13; //nr hooka niskiego poziomu. Delphi nie zapewnia tej stałej.

W części immplementation piszemy funkcję obsługi naszego Hooka:

function LLKeyHookFunc(HookCode: Integer; KeyCode: wParam; KStrokeInfo: lParam): LResult; stdcall;
var
  Struct: PKbdDllHookStruct; //Wskaźnik do struktury, w której otrzymamy informacje o stanie klawiatury
begin
  Struct := Ptr(KStrokeInfo);
  Result := 0;
  if (HookCode >= 0) then
  begin
    { Blokujemy kombinację Ctrl+Esc }
    if (Struct.vkCode = VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)<-32766) then
      Result := 1;
    { Blokujemy Alt+Tab }
    if (Struct.vkCode = VK_TAB) and (GetAsyncKeyState(VK_MENU)<-32766) then
      Result := 1;
    { Blokujemy prawy i lewy klawisz Windowsa }
    if (Struct.vkCode = VK_LWIN) or (Struct.vkCode = VK_RWIN) then
      Result := 1;
  end;
  //Jeżeli kombinacji nie chcemy blokować, to przekażmy informacje dla innych okien
  if (Result = 0) then
    Result := CallNextHookEx(HookID, HookCode, KeyCode, KStrokeInfo);
end;

{ Załóżmy Hook na system }
procedure TForm1.LockSystem;
begin
  HookID := SetWindowsHookEx(WH_KEYBOARD_LL, @LLKeyHookFunc, hInstance, 0);
end;

{ Na koniec trzeba oczywiście wyłączyć. Nie chcemy stale blokować sobie klawiatury }
procedure TForm1.UnLockSystem;
begin
  UnHookWindowsHookEx(HookID);
end;

Jeszcze usupełnijmy obsługę zdarzeń. Niech Button1 włącza Hooka, a Button2 wyłącza:

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockSystem;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnLockSystem;
end;

A teraz czas na haczyki.

1. Zablokować można prawie wszystkie klawisze... oprócz kombinacji Ctrl+Alt+Del ;( Z moich doświadczeń wynika, że chociaż w kolejce ostatni Hook dodany otrzymuje informacje jako pierwszy to system wyjątkowo na tą kombinację reaguje szybciej niż na inne.
2. Z tego co wiem, to działa to na WinNT/2000/XP. Z Win9x mogą być problemy.