Tastatur komplett sperren

[Sascha]

Warum nicht einfach so?

Delphi-Quellcode:

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