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;