//
Function ExecuteProcess(Const AExecutable, ACommandLine, ACurrentDir : String; AOnOutputDataProc : TOnOutputDataProc; ATimeoutInterval : DWORD; ATimeoutExitCode : DWORD) : LongWord;
Var

 RPipe  : THandle;
 WPipe  : THandle;
 SA     : TSecurityAttributes;
 SI     : TStartupInfo;
 PA     : TProcessInformation;
 Buffer : Array [0 .. 128 - 1] Of Byte;
 Count  : Cardinal;

Begin

 Result := 0;

 //
 ZeroMem(@SA, SizeOf(SA));

 SA.nLength              := SizeOf(SA);
 SA.lpSecurityDescriptor := NIL;
 SA.bInheritHandle       := True;
 //

 If Not Assigned(AOnOutputDataProc) Then
  Begin

   RPipe := INVALID_HANDLE_VALUE;
   WPipe := INVALID_HANDLE_VALUE;

  End
 Else
  If Not CreatePipe(RPipe, WPipe, @SA, 0) Then
   RaiseLastOSError;

 Try

  //
  ZeroMem(@SI, SizeOf(SI));

  SI.cb          := SizeOf(SI);
  SI.hStdOutput  := WPipe;
  SI.hStdError   := WPipe;
  SI.dwFlags     := STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW;
  SI.wShowWindow := SW_HIDE;
  //

  //
  ZeroMem(@PA, SizeOf(PA));
  //

  If CreateProcess(PChar(AExecutable), PChar(ACommandLine), NIL, NIL, True, 0, NIL, PChar(Pointer(ACurrentDir)), SI, PA) Then
   Try

    If WPipe <> INVALID_HANDLE_VALUE Then
     Begin

      CloseHandle(WPipe);

      WPipe := INVALID_HANDLE_VALUE;

     End;

    If ATimeoutInterval <> INFINITE Then
     TWatchdogThread.Create(PA.hProcess, ATimeoutInterval, ATimeoutExitCode);

    If Assigned(AOnOutputDataProc) Then
     While ReadFile(RPipe, Buffer, SizeOf(Buffer), Count, NIL) And (Count > 0) Do
      AOnOutputDataProc(Buffer, Count);

   Finally

    WaitForSingleObject(PA.hProcess, INFINITE);

    If Not GetExitCodeProcess(PA.hProcess, Result) Then
     RaiseLastOSError;

    CloseHandle(PA.hThread);
    CloseHandle(PA.hProcess);

   End
  Else
   RaiseLastOSError;

 Finally

  If RPipe <> INVALID_HANDLE_VALUE Then
   CloseHandle(RPipe);

  If WPipe <> INVALID_HANDLE_VALUE Then
   CloseHandle(WPipe);

 End;

End;
//

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

//
Function ExecuteProcess(Const AExecutable, ACommandLine, ACurrentDir : String; ACodePage : Word = CP_OEMCP) : String;
Const

 CP_UTF16_LE = 1200;

Var

 RPipe     : THandle;
 WPipe     : THandle;
 SA        : TSecurityAttributes;
 SI        : TStartupInfo;
 PA        : TProcessInformation;
 Buffer    : Array [0 .. 128 - 1] Of Byte;
 Count     : Cardinal;
 AccBuffer : RawByteString;

Begin

 Result := '';

 //
 ZeroMemory(@SA, SizeOf(SA));

 SA.nLength              := SizeOf(SA);
 SA.lpSecurityDescriptor := NIL;
 SA.bInheritHandle       := True;
 //

 If Not CreatePipe(RPipe, WPipe, @SA, 0) Then
  RaiseLastOSError;

 Try

  //
  ZeroMemory(@SI, SizeOf(SI));

  SI.cb          := SizeOf(SI);
  SI.hStdOutput  := WPipe;
  SI.hStdError   := WPipe;
  SI.dwFlags     := STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW;
  SI.wShowWindow := SW_HIDE;
  //

  //
  ZeroMemory(@PA, SizeOf(PA));
  //

  If CreateProcess(PChar(AExecutable), PChar(ACommandLine), NIL, NIL, True, 0, NIL, PChar(Pointer(ACurrentDir)), SI, PA) Then
   Try

    If WPipe <> INVALID_HANDLE_VALUE Then
     Begin

      CloseHandle(WPipe);

      WPipe := INVALID_HANDLE_VALUE;

     End;

    While ReadFile(RPipe, Buffer, SizeOf(Buffer), Count, NIL) And (Count > 0) Do
     Begin

      SetLength(AccBuffer, Length(AccBuffer) + Integer(Count));
      Move(Buffer, AccBuffer[Length(AccBuffer) - Integer(Count) + 1], Count);

     End;

    If ACodePage = CP_UTF16_LE Then
     Begin

      SetLength(Result, Length(AccBuffer) Div SizeOf(WideChar));
      Move(Pointer(AccBuffer)^, Pointer(Result)^, Length(Result) * SizeOf(WideChar));

     End
    Else
     Begin

      SetCodePage(AccBuffer, ACodePage, False);

      Result := String(AccBuffer);

     End;

   Finally

    WaitForSingleObject(PA.hProcess, INFINITE);

    CloseHandle(PA.hThread);
    CloseHandle(PA.hProcess);

   End
  Else
   RaiseLastOSError;

 Finally

  If RPipe <> INVALID_HANDLE_VALUE Then
   CloseHandle(RPipe);

  If WPipe <> INVALID_HANDLE_VALUE Then
   CloseHandle(WPipe);

 End;

End;
//

var
 s : string;
begin

 WriteLn(ExecuteProcess('C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\dcc32.exe', '', ''));

 s := ExecuteProcess('c:\windows\system32\cmd.exe', '/U /C dir', 'c:\', 1200);
 MessageBox(0, PChar(s), 'cmd', MB_ICONINFORMATION or MB_OK);

end.