Task beenden

[toms]

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;

[Blackstar]

edit: funzt immernoch nicht so ganz, siehe unten

da der titel des fensters aus Dateipfad und .Exe name bestand hab ich so gelöst

fals es jemanden interessiert hier ist der code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
path:=ExtractFilePath(ParamStr(0));
end;

function TForm1.Execheck(exename:string): boolean;
var
   Handle: HWND;
begin
   Handle := FindWindow('exename', nil);
   Result := Handle <> 0; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if world=true then begin
if ExeCheck(path+'world.exe')=false then  MyShellExecute('world.exe');
end;

if realm=true then begin
if ExeCheck(path+'realmserver.exe')=false then MyShellExecute('realmserver.exe') ;
end;

if login=true then begin
if ExeCheck(path+'loginserver.exe')=false then MyShellExecute('logonserver.exe');
end;
end;

[DeddyH]

Das würde ich ein wenig anders schreiben:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if world and not ExeCheck(path+'world.exe') then  
    MyShellExecute('world.exe');

  if realm and not ExeCheck(path+'realmserver.exe') then 
    MyShellExecute('realmserver.exe') ;

  if login and not ExeCheck(path+'loginserver.exe') then 
    MyShellExecute('logonserver.exe');

end;

[Blackstar]

hmm scheint doch nicht so ganz zu funktionieren wie ich mir das vorstelle

er öffnets immernoch bei jedem timertick

liegts vielleicht immernoch an dem falschen fenster titel?

beispiel: Die Datei hat im Fenster stehen: C:\file.exe

dann ist doch dies richtig?
Handle := FindWindow('C:\file.exe', nil);

[DeddyH]

Wenn Du nach dem Fenstertitel gehst, dann andersrum:Handle := FindWindow(nil, 'C:\file.exe');

[Blackstar]

geht komischerweise auch nicht....

Delphi-Quellcode:

function TForm1.Execheck(exename:string): boolean;
var
   Handle: HWND;
begin
   Handle := FindWindow(nil,'exename');
   Result := (Handle <> 0); 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if world and not ExeCheck(path+'ascent-world.exe') then
    MyShellExecute('ascent-world.exe');

  if realm and not ExeCheck(path+'ascent-realmserver.exe') then
    MyShellExecute('ascent-realmserver.exe') ;

  if login and not ExeCheck(path+'ascent-logonserver.exe') then
    MyShellExecute('ascent-logonserver.exe');
end;

[DeddyH]

Dann würde ich erstmal testen, ob ExeCheck so, wie Du es aufrufst, funktioniert.