Delphi-Quellcode:
function TForm1.Execheck(exename:
string): boolean;
var
Handle: HWND;
begin
Handle := FindWindow('
exename',
nil);
if Handle = 0
then execheck:=false
else execheck:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ExeCheck('
world.exe')=false
then MyShellExecute('
world.exe');
if ExeCheck('
realmserver.exe')=false
then MyShellExecute('
realmserver.exe') ;
if ExeCheck('
loginserver.exe')=false
then MyShellExecute('
logonserver.exe');
end;
sollte er nicht mit execheck herausfinden ob das programm das übergeben wird gerade läufft?
warum öffnet er es bei jedem TimerTick erneut?