Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.061 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Tastatur per Button sperren und wieder entsperren

  Alt 28. Jul 2020, 13:43
(Ich habe mir Deine Links noch nicht genauer angeschaut)

Für Tastatur:
Aus meiner Archiv-Sammlung, Achtung: das wirkt global und nicht auf ein Programm bezogen.
Im SetWindowsHookEx als letzten Parameter kannst Du einen Thread benennen, zum Beispiel GetCurrentThreadId um nur Dein Programm damit zu blocken.
Müsste auch noch mit Windows 10 klappen, aber ungetestet.

Delphi-Quellcode:
function KBHookHandler(ACode: Integer; WParam: WParam; LParam: LParam) : LResult; stdcall;
begin
  if ACode < 0 then
    Result := CallNextHookEx(Hook, ACode, WParam, LParam)
  else
    Result := 1;
end;

function DisableKeyboard: Boolean; stdcall;
begin
  if Hook = 0 then
    Hook := SetWindowsHookEx(WH_KEYBOARD, @KBHookHandler, HInstance, 0);
  Result := Hook <> 0;
end;
Gruß vom KodeZwerg

Geändert von KodeZwerg (28. Jul 2020 um 13:50 Uhr)
  Mit Zitat antworten Zitat