Delphi 6-阅读控制台应用程序'；在运行时显示输出

如何读取正在运行的控制台应用程序输出。我启动控制台应用程序，并希望在控制台应用程序打印输出时读取输出。

这是怎么回事

---

编辑：该链接指向此解决方案（为了清晰易读，对其进行了轻微的重构，并删除了对的使用）：

//该示例运行'chkdsk.exe c:\'并将输出显示为Memo1。
//在表格上写上一个TMemo（备忘录1）和一个T按钮（按钮1）。把这个
//按钮1的OnCLick事件过程中的代码：
过程TForm1.rundosinemo（DosApp:String；AMemo:TMemo）；
常数
ReadBuffer=2400；
变量
安全性：t安全属性；
读管，
书写体：THandle；
开始：TStartUpInfo；
ProcessInfo:TProcessInformation；
缓冲区：Pchar；
拜特斯拉德：德沃德；
通知：德沃德；
开始
Security.nlength:=SizeOf（TSecurityAttributes）；
Security.binherithandle:=true；
Security.lpsecuritydescriptor:=nil；
如果Createpipe（ReadPipe，WritePipe，@Security，0），则
开始
缓冲区：=AllocMem（ReadBuffer+1）；
FillChar（开始，Sizeof（开始），#0）；
start.cb:=SizeOf（start）；
start.hStdOutput:=writepe；
start.hStdInput:=读取管道；
start.dwFlags:=STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW；
start.wShowWindow:=SW_HIDE；
如果CreateProcess（无，
PChar（DosApp），
@保安,，
@保安,，
是的，
正常优先级等级，
无
无
开始
ProcessInfo）然后
开始
重复
Apprunning:=WaitForSingleObject（ProcessInfo.hProcess，100）；
Application.ProcessMessages；
直到（通知等待超时）；
重复
字节读取：=0；
ReadFile（ReadPipe，缓冲区[0]，
读取缓冲区，字节读取，无）；
缓冲区[字节读取]：=#0；
OemToAnsi（缓冲区，缓冲区）；
AMemo.Text:=AMemo.Text+字符串（缓冲区）；
直到（字节读取<读取缓冲区）；
结束；
FreeMem（缓冲区）；
CloseHandle（ProcessInfo.hproces）；
CloseHandle（ProcessInfo.hThread）；
关闭手柄（读取管）；
关闭手柄（WritePie）；
结束；
结束；
程序TForm1.按钮1单击（发送方：TObject）；
开始
rundosinemo（'chkdsk.exe c:\'，备忘录1）；
结束；

我通常使用此端口FPC代码：

它包含一个控制外部程序的类（Lazarus用来调用cmdline编译器和其他程序的类）

这里有文档，但是delphi端口有点旧，所以上面的版本中可能不存在所有文档化的属性

---

仅对Marco answer的一个小补充，对使用TProcess单元进行了详细说明

---

我相信这是最简单的方法。祝你好运

对于那些关注链接的人来说，这是一个很好的建议，但是仅仅一个链接并不是一个很好的答案，请参见：@Mick:oops-当你在新答案中这样做时，我正在编辑旧的答案。如果有人认为我的编辑应该回滚，请随意这样做。不用担心。我当时删除了我的评论。这不会在它出现时读取输出，它只会在最后正确地读取所有内容。。。这不是我要找的。遗憾的是，这不是你要找的，但这段代码正是我要找的，谢谢。在最近的FPC版本中，一些修复一些最简单场景的简单过程被添加为“RunCommand（）

// The example runs 'chkdsk.exe c:\' and displays the output to Memo1.
// Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this 
//   code in the OnCLick event procedure for Button1:

procedure TForm1.RunDosInMemo(DosApp:String;AMemo:TMemo) ;
const
  ReadBuffer = 2400;
var
  Security    : TSecurityAttributes;
  ReadPipe,
  WritePipe   : THandle;
  start       : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  Buffer      : Pchar;
  BytesRead   : DWord;
  Apprunning  : DWord;

begin
  Security.nlength := SizeOf(TSecurityAttributes) ;
  Security.binherithandle := true;
  Security.lpsecuritydescriptor := nil;
  if Createpipe (ReadPipe, WritePipe, @Security, 0) then 
  begin
    Buffer := AllocMem(ReadBuffer + 1) ;
    FillChar(Start,Sizeof(Start),#0) ;
    start.cb := SizeOf(start) ;
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;
    if CreateProcess(nil,
                     PChar(DosApp),
                     @Security,
                     @Security,
                     true,
                     NORMAL_PRIORITY_CLASS,
                     nil,
                     nil,
                     start,
                     ProcessInfo) then
    begin
      repeat
        Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
        Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT) ;
      repeat
        BytesRead := 0;
        ReadFile(ReadPipe,Buffer[0],
        ReadBuffer,BytesRead,nil) ;
        Buffer[BytesRead]:= #0;
        OemToAnsi(Buffer,Buffer) ;
        AMemo.Text := AMemo.text + String(Buffer) ;
      until (BytesRead < ReadBuffer) ;
    end;
    FreeMem(Buffer) ;
    CloseHandle(ProcessInfo.hProcess) ;
    CloseHandle(ProcessInfo.hThread) ;
    CloseHandle(ReadPipe) ;
    CloseHandle(WritePipe) ;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  RunDosInMemo('chkdsk.exe c:\', Memo1) ;
end;