Tastatur abschalten

[luisk]

Hallo, wie kann ich die Tastatur komplett abschalten ?

BlockInput(true); geht zwar, schaltet aber auch die Maus ab.
Diese soll aber weiter funktionieren.

weiter habe ich einen Keyboard-hook eingerichtet.
Dieser funktioniert aber nicht

Delphi-Quellcode:

function  KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt) : Longint;
var lw:Word;
begin
   lw:=WordParam;
   //esult:=1;
   if Code < 0 then
      Result := CallNextHookEx(kbHook, Code, WordParam, LongParam)
   else begin
      Result := 1;
   end;
   {To prevent Windows from passing the keystrokes
   to the target window, the Result value must
   be a nonzero value.}
end;