下你所需,载你所想!
IT技术源码资料下载网站

取DOS执行结果

:2.852KB

:1:2021-09-06 11:35:18

部分简介

CloseHandle (hWrite) ' 因为我们开始已经创建了一个写管道端口,现在进程创键时又自动创键了一个写管道端口,所以应关闭多余的管道写端口
.判断循环首 (len ≠ -1) ' 制造一个无限循环
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) ' 关闭管道
跳出循环 ()
.如果真结束

.如果结束
处理事件 ()
输出调试文本 (到文本 (len))
.判断循环尾 ()

相关阅读

最近更新