Ist Anwendung noch aktiv

[Kosta]

Ich habe den Namen der EXE-Datei (lt.Taskmanager / Prozesse)
bzw. der Text der ebenfalls im Taskmanager unter Anwendungen steht.

somit denke ich mir dass ich eine Funktion bastle, die dann wie folgt
aussieht

Funktion AplAktiv(ProzessName:String) : boolean;
begin
wass soll ich hier reinschreiben ?
end;
Procedure KillApl(ProzessName : string);
begin
was muß hier stehen
end;
Procedure TForm1.Button1Click(Sender : Tobject);
Begin
If AplAktiv('winword.exe') then // das soll nur true sein wenn Programm gestartet & reagiert

alles ok

else
KillApl('winword.exe');

ich weiß für euch ist das sicher ein klax - aber ich konnte nirgends etwas finden.
noch besser wäre eine Funktion die mir folgende Informationen gibt
1) Prog. läuft
2) Prog. reagiert nicht
3) Prog. nicht gestartet
Kosta