取DOS执行结果

PeekNamedPipe (hRead, 0, 0, 0, len, 0)
.如果 (len ≠ 0)
txt ＝ 取空白字节集 (1024)
ReadFile (hRead, txt, 1023, len, 0) ' 从管道中读取数据
编辑框1.内容 ＝ 编辑框1.内容 ＋ 取字节集数据 (txt, #文本型)
.否则
GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT) ' 查看指定进程是否已结束
.如果真 (EXIT ≠ #STILL_ACTIVE)
CloseHandle (hRead)
跳出循环 ()