Tastatur (ent)sperren

[Meflin]

habe folgenden code gefunden:

Delphi-Quellcode:

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

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