[转]Delphi调用cmd并取得输出文本

//转自http://www.oschina.net/code/snippet_136241_3980 

1 procedure CheckResult(b: Boolean);
 begin
   if not b then
     raise Exception.Create(SysErrorMessage(GetLastError));
 end;

 function RunDOS(const CommandLine: string): string;
 var
   HRead, HWrite: THandle;
   StartInfo: TStartupInfo;
   ProceInfo: TProcessInformation;
   b: Boolean;
   sa: TSecurityAttributes;
   inS: THandleStream;
   sRet: TStrings;
 begin
   Result := '';
   FillChar(sa, sizeof(sa), );
 //设置允许继承，否则在NT和2000下无法取得输出结果
   sa.nLength := sizeof(sa);
   sa.bInheritHandle := True;
   sa.lpSecurityDescriptor := nil;
   b := CreatePipe(HRead, HWrite, @sa, );
   CheckResult(b);

   FillChar(StartInfo, SizeOf(StartInfo), );
   StartInfo.cb := SizeOf(StartInfo);
   StartInfo.wShowWindow := SW_HIDE;
 //使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式
   StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
   StartInfo.hStdError := HWrite;
   StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE); //HRead;
   StartInfo.hStdOutput := HWrite;

   b := CreateProcess(nil, //lpApplicationName: PChar
     PChar(CommandLine), //lpCommandLine: PChar
     nil, //lpProcessAttributes: PSecurityAttributes
     nil, //lpThreadAttributes: PSecurityAttributes
     True, //bInheritHandles: BOOL
     CREATE_NEW_CONSOLE,
     nil,
     nil,
     StartInfo,
     ProceInfo);

   CheckResult(b);
   WaitForSingleObject(ProceInfo.hProcess, INFINITE);

   inS := THandleStream.Create(HRead);
   if inS.Size >  then
   begin
     sRet := TStringList.Create;
     sRet.LoadFromStream(inS);
     Result := sRet.Text;
     sRet.Free;
   end;
   inS.Free;

   CloseHandle(HRead);
   CloseHandle(HWrite);
 end;