function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string;var  SA: TSecurityAttributes;  SI: TStartupInfo;  PI: TProcessInformation;  StdOutPipeRead, StdOutPipeWrite: THandle;  WasOK: Boolean;  Buffer: array [0 .. 255] of AnsiChar;  BytesRead: Cardinal;  WorkDir: string;  Handle: Boolean;begin  Result := '';  with SA do  begin    nLength := SizeOf(SA);    bInheritHandle := True;    lpSecurityDescriptor := nil;  end;  CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);  try    with SI do    begin      FillChar(SI, SizeOf(SI), 0);      cb := SizeOf(SI);      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;      wShowWindow := SW_HIDE;      hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin      hStdOutput := StdOutPipeWrite;      hStdError := StdOutPipeWrite;    end;    WorkDir := Work;    Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine), nil, nil,      True, 0, nil, PChar(WorkDir), SI, PI);    CloseHandle(StdOutPipeWrite);    if Handle then      try        repeat          WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);          if BytesRead > 0 then          begin            Buffer[BytesRead] := #0;            Result := Result + Buffer;          end;        until not WasOK or (BytesRead = 0);        WaitForSingleObject(PI.hProcess, INFINITE);      finally        CloseHandle(PI.hThread);        CloseHandle(PI.hProcess);      end;  finally    CloseHandle(StdOutPipeRead);  end;end;

上面的代码执行时会阻塞GUI线程，你可以将上面的代码封装到一个TThread的字类中执行， 也就是在线程中执行，使用MsgWaitForMultipleObjects替换WaitForSingleObject，当Windows消息到达时调用Application.ProcessMessages，就像下面这样：

repeat 　　case MsgWaitForMultipleObjects(1, PI.hProcess,False, INFINITE, QS_ALLINPUT )of　　WAIT_OBJECT_0: 　　　　Break;　　WAIT_OBJECT_0+1: 　　　　Application.ProcessMessages(); 　　else 　　　　Break;// should never happen 　　end; until False;