Task beenden

[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;