.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 目录, 文本型
.局部变量 文件ID, 整数型
.局部变量 内容, 文本型


目录 ＝ 取运行目录 ()
.如果真 (文件是否存在 (目录 ＋ “/closeProcess.txt”) ＝ 假)
  信息框 (“找不到closeProcess.txt文件！”, 0, )
.如果真结束
文件ID ＝ 打开文件 (目录 ＋ “/closeProcess.txt”, , )
内容 ＝ 读入一行 (文件ID)
.判断循环首 (内容 ≠ “”)
  加入成员 (进程数组, 内容)
  内容 ＝ 读入一行 (文件ID)
.判断循环尾 ()
' 信息框 (取数组成员数 (进程数组), 0, )
关闭文件 (文件ID)
关闭进程 ()
' 时钟1.时钟周期 ＝ 5000
_按钮1_被单击 ()

.子程序 关闭进程
.局部变量 i, 整数型
.局部变量 进程ID, 整数型

.变量循环首 (1, 取数组成员数 (进程数组), 1, i)
  进程ID ＝ 进程_名取ID (进程数组 [i])
  .如果真 (进程ID ≠ 0)
    进程_结束 (进程ID)
  .如果真结束

.变量循环尾 ()

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 5000
标签1.标题 ＝ “程序监听中...”

.子程序 _时钟1_周期事件

关闭进程 ()

.子程序 _按钮2_被单击

时钟1.时钟周期 ＝ 0
标签1.标题 ＝ “程序监听取消了...”

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果真 (操作类型 ＝ 2) ' 操作类型2双击托盘图标
  可视 ＝ 真
  位置 ＝ 1
  置托盘图标 ({ }, “”)
.如果真结束


.子程序 __启动窗口_位置被改变

.如果真 (位置 ＝ 2) ' 位置2窗口最小化
  置托盘图标 (#图片1, “noAd”)
  可视 ＝ 假
.如果真结束

.版本 2

.全局变量 进程数组, 文本型, , "0"

.版本 2

.图片 图片1