Tastatur komplett sperren

[ustra]

In einem Programm, das ständig im Hintergrund läuft einen Timer nehmen und dann im onTimer Ereignis schreiben:

Delphi-Quellcode:

procedure taskmanager;
var handle : hwnd;
begin 
  handle := Findwindow(nil, 'Windows Task Manager')
  //oder Findwindow(nil, ' Windows Task Manager')
  if handle <> 0
  then 
    SendMessage(handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

Das sollte es sein. Das funktioniert wunderbar. Allerdings ist das jetzt nur so aus dem Kopf gemacht ohne Garantie auf Richtigkeit.

Ulrich