function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word; var reslt: Integer): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
  i: Cardinal;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcInfo.hProcess, i);
    reslt := i; //Код завершения дочернего процесса
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

function AppStart(fn: string): Integer;
var
  code: Integer; //для получения кода завершния дочернего
begin
  //Если файла нет
  if not FileExists(fn) then
  begin
    ShowMessage('Файл не найден (' + fn +')');
    Exit(-1);
  end                   else
    ExecAndWait( fn, '', SW_SHOW, code); //в code будет значение код завершения дочернего процесса

  //Возврат кода завершения приложения
  Result := code;
end;

procedure TForm1.btnStartAppClick(Sender: TObject);
var
  i: Integer;
begin
  //Запуск приложения и получение кода его завершения
  i := AppStart(edtFileName.Text);

  //Отображение события завершения работы дочернего с кодом его завершения
  ShowMessage('Завершилось: ' + i.ToString);
end;

procedure TForm2.btnCloseClick(Sender: TObject);
begin
  ExitCode := 5;
  Close;
end;

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word; var reslt: Integer): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  M:TMsg;
  CmdLine: ShortString;
  i: Cardinal;
  R:DWord;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
     {1. С блокировкой основного процесса}
     //WaitForSingleObject(ProcInfo.hProcess, INFINITE);

     {2. Без блокировки основного процесса}
     repeat
       R := MsgWaitForMultipleObjects(1, 
       ProcInfo.hProcess,
       FALSE, 
       INFINITE, 
       QS_ALLINPUT); 
       if R>WAIT_OBJECT_0 then begin
         M.Message := 0;
         while PeekMessage(M,0,0,0,PM_REMOVE) do begin
           TranslateMessage(M);
           DispatchMessage(M);
         end
       end;

     until R=WAIT_OBJECT_0;

    GetExitCodeProcess(ProcInfo.hProcess, i);

    reslt := i; //Код завершения дочернего процесса
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

function processKill(ProcInfo: TProcessInformation): Integer;
begin
 TerminateProcess(ProcInfo.hProcess, 2);
end;