上传者: shing7100
|
上传时间: 2020-02-21 03:11:05
|
文件大小: 10KB
|
文件类型: e
易语言匿名管道
.版本 2
.支持库 spec
' 通过类创建回显线程
调试输出 (匿名管道.运行 (“cmd”, “D:\”, &显示线程, ))
' 单独运行读管道里自己启动线程
' 匿名管道.运行_匿名管道 (, , , )
' 启动线程 (&显示线程, , )
.子程序 显示线程
.判断循环首 (真)
编辑框1.加入文本 (到文本 (匿名管道.读 ()))
延迟 (10)
.判断循环尾 ()
.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
匿名管道.写 (编辑框2.内容)
编辑框2.内容 = “”