//转自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;