Zitat von
Blackstar:
sollte er nicht mit execheck herausfinden ob das programm das übergeben wird gerade läufft?
warum öffnet er es bei jedem TimerTick erneut?
In ExeCheck wird ja nach dem Fenster-Titel gesucht. Du übergibst der Funktion aber
den Exe-Namen. Zudem übergibst du der Funktion FindWindow den String 'ExeName' und nicht den Parameter ExeName.
PS:
Die Funktion ExeCheck lässt sich einfacher schreiben:
Delphi-Quellcode:
function TForm1.Execheck(exename:
string): boolean;
var
Handle: HWND;
begin
Handle := FindWindow(exename,
nil);
Result :=
Handle <> 0;
end;