Task beenden

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