Peter
Forum Administrator

www.reallusion.com

program ExecuteApp;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows,
  ShellApi,
  System.SysUtils;

var
  i: Integer;
  cl: string;
  parms: string;
  SI: TStartupInfo;         //requires Windows
  PI: TProcessInformation;  //requires Windows

begin
    {
      Create two separate exe files for each and change parms for each:

      parms := '-a Photo2';
      parms := '-a Designer2';
    }

    cl := 'aflaunch.exe';
    parms := '-a Photo2';

    cl := cl + ' ' + parms;

    for i := 1 to ParamCount do
    begin
      cl := cl + ' "' + ParamStr(i) + '"';
    end;
    Writeln(cl);
    UniqueString(cl);

  // below will launch:
    try
      try
        writeln('begin');
        FillChar(SI, sizeof(SI), 0);
        FillChar(PI, sizeof(PI), 0);
        SI.cb := sizeof(SI);

        if not CreateProcess(nil, PChar(cl), nil, nil, true, 0, nil, nil, SI, PI) then
          RaiseLastOSError;

        WaitForSingleObject(PI.hProcess, INFINITE);

        CloseHandle(PI.hProcess);
        CloseHandle(PI.hThread);

        writeln('end');
      except
        on E: Exception do
          begin
            Writeln(E.ClassName, ': ', E.Message);
            ExitCode := 1;
         end;
      end;
    finally
      Writeln('Complete');
      //Readln;   // uncomment if you want the screen to pause and require you to hit enter to exit
      ExitCode := 0;
    end;
end.