Anwendung starten und warten bis diese beendet ist

[Sprint]

Delphi-Quellcode:

uses
  System.Diagnostics;

Delphi-Quellcode:

function RunAppAndWait(const AFileName: string): Boolean;
var
  NewProcess: Process;
begin

  NewProcess := Process.Create;
  with NewProcess do
  begin
    StartInfo.FileName := AFileName;
    try
      Result := Start;
      while (not HasExited) do
      begin
        WaitForExit(125);
        Application.DoEvents;
      end;
    except
      Result := False;
    end; {end try/except}
  end; {end with}

end; {end function}

[edit=Chakotay1308]Titel angepasst. Mfg, Chakotay1308[/edit]