Delphi 执行控制台(console)程序获取返回结果

function GetRunConsoleResult(FileName:String;Visibility:Integer;var mOutputs:string):Integer;var  sa:TSecurityAttributes;  hReadPipe,hWritePipe:THandle;  ret:BOOL;  strBuff:array[0..255] of char;  lngBytesread:DWORD;    WorkDir:String;  StartupInfo:TStartupInfo;  ProcessInfo:TProcessInformation;begin  FillChar(sa,Sizeof(sa),#0);  sa.nLength := Sizeof(sa);  sa.bInheritHandle := True;  sa.lpSecurityDescriptor := nil;  if not(CreatePipe(hReadPipe, hWritePipe, @sa, 0)) then    begin      Result:=-2;  //通道创建失败    end;  WorkDir:=ExtractFileDir(Application.ExeName);  FillChar(StartupInfo,Sizeof(StartupInfo),#0);  StartupInfo.cb:=Sizeof(StartupInfo);  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;  StartupInfo.wShowWindow:=Visibility;  StartupInfo.hStdOutput:=hWritePipe;  StartupInfo.hStdError:=hWritePipe;  if not CreateProcess(nil,    PChar(FileName),               { pointer to command line string }    @sa,                           { pointer to process security attributes }    @sa,                           { pointer to thread security attributes }    True,                          { handle inheritance flag }    NORMAL_PRIORITY_CLASS,    nil,                           { pointer to new environment block }    PChar(WorkDir),                { pointer to current directory name, PChar}    StartupInfo,                   { pointer to STARTUPINFO }    ProcessInfo)                   { pointer to PROCESS_INF }  then    Result := INFINITE {-1 进程创建失败}  else    begin      CloseHandle(hWritePipe);      mOutputs:='';      while ret do      begin        FillChar(strBuff,Sizeof(strBuff),#0);        ret := ReadFile(hReadPipe, strBuff, 256, lngBytesread, nil);        mOutputs := mOutputs + strBuff;      end;      Application.ProcessMessages;      //等待console结束      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);      GetExitCodeProcess(ProcessInfo.hProcess,  Cardinal(Result));      CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }      CloseHandle(ProcessInfo.hThread);      CloseHandle(hReadPipe);    end;end;

调用方式：

GetRunConsoleResult(执行文件,SW_SHOWNORMAL,返回字符串); //函数执行成功返回 0