type
  _STARTUPINFOA = record
    cb             :LongWord;
    lpReserved     :Longword; // Pointer;
    lpDesktop      :Longword; // Pointer;
    lpTitle        :Longword; // Pointer;
    dwX            :LongWord;
    dwY            :LongWord;
    dwXSize        :LongWord;
    dwYSize        :LongWord;
    dwXCountChars  :LongWord;
    dwYCountChars  :LongWord;
    dwFillAttribute:LongWord;
    dwFlags        :LongWord;
    wShowWindow    :Word;
    cbReserved2    :Word;
    lpReserved2    :LongWord; // Pointer;
    hStdInput      :THandle;
    hStdOutput     :THandle;
    hStdError      :THandle;
  end;
  TStartupInfo = _STARTUPINFOA;

  _PROCESS_INFORMATION = record
    hProcess       :THandle;
    hThread        :THandle;
    dwProcessId    :LongWord;
    dwThreadId     :LongWord;
  end;
  TProcessInformation = _PROCESS_INFORMATION;
  
  _SECURITY_ATTRIBUTES = record
    nLength             :LongWord;
    lpSecurityDescriptor:LongWord; // Pointer;
    bInheritHandle      :LongBool;
  end;
  TSecurityAttributes = _SECURITY_ATTRIBUTES;
  
  
  function RunCaptured(const aDirectory, aExeName, aCmdLine:string):string;
  var
    StartInf    :TStartupInfo; 
    ProcInf     :TProcessInformation; 
    SecAttr     :TSecurityAttributes; 
    TmpSA1      :TSecurityAttributes; 
    TmpName     :string; 
    TmpHndl     :THandle; 
    TmpRslt     :Cardinal;
    ProcCreated :LongBool; 
    TmpSL       :TStrings;
  begin
    Result    := 'FAILURE';
    TmpName   := 'log.txt'; // здесь идет получение имени временного файла. 
    SecAttr.nLength        := SizeOf(SecAttr); 
    SecAttr.bInheritHandle := True; 
    TmpHndl := CreateFile(PChar(TmpName), GENERIC_WRITE, FILE_SHARE_WRITE, SecAttr, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
      try
        StartInf.cb          := SizeOf(StartInf); 
        StartInf.hStdOutput  := TmpHndl; 
        StartInf.dwFlags     := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; 
        StartInf.wShowWindow := SW_HIDE;
        ProcCreated          := true;
        ProcCreated := CreateProcess(PChar(aExeName), PChar(aExeName+' '+aCmdLine), TmpSA1, TmpSA1, ProcCreated,0,0,PChar(aDirectory),StartInf,ProcInf);
        if(Integer(ProcCreated) = 1)then 
        begin 
          SetPriorityClass   (ProcInf.hProcess,IDLE_PRIORITY_CLASS); 
          WaitForSingleObject(ProcInf.hProcess,INFINITE); 
          GetExitCodeProcess (ProcInf.hProcess,TmpRslt); 
          CloseHandle(ProcInf.hThread); 
          CloseHandle(ProcInf.hProcess); 
          CloseHandle(TmpHndl);
          TmpSL := TStringList.Create;
          try
            TmpSL.LoadFromFile(TmpName);
            Result := TmpSL.Text;
          finally 
            TmpSL.Free;   
            DeleteFile(PChar(TmpName)); 
          end;
        end 
        else 
          Result := 'Ошибка вызова внешнего приложения';
     finally
      CloseHandle(TmpHndl); 
      DeleteFile(PChar(TmpName)); 
     end; 
  end;