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