Thema: Delphi Ist Anwendung noch aktiv

Einzelnen Beitrag anzeigen

Kosta

Registriert seit: 27. Dez 2002
18 Beiträge
 
Delphi 7 Enterprise
 
#8
  Alt 30. Dez 2002, 15:04
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
  Mit Zitat antworten Zitat