Ejecutar un programa esperando o no a que termine

[dec]

Ejecutar un programa esperando o no a que termine.

Esperando a que termine

Código Delphi [-]
function WinExecAndWait32(FileName:String; Visibility : integer):integer;
{
 Ejectuta el programa y espera a que termine.

 Las opciones de visibilidad son las típicas
 en estos casos: SW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_RESTORE,
                 SW_SHOW, SW_SHOWDEFAULT, SW_SHOWMAXIMIZED,
                 SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE, SW_SHOWNA,
                 SW_SHOWNOACTIVATE, SW_SHOWNORMAL

                 Si necesitas más información sobre estas opciones
                 busca la función ShowWindow en la ayuda del Api de
                 Windows
}
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
    zAppName,
    nil,
    nil,
    false,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
  else begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,Result);
  end;
end;

Sin esperar a que termine

Código Delphi [-]
function WinExecNoWait32(FileName:String; Visibility : integer):integer;
{
 La misma función que la anterior pero la ejecución de nuestro
 programa sigue normalmente
}
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
    zAppName,
    nil,
    nil,
    false,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo) then Result := -1
end;