.版本 2

.程序集 窗口程序集1

.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 目錄, 文本型
.局部變量 文件ID, 整數(shù)型
.局部變量 內(nèi)容, 文本型


目錄 ＝ 取運(yùn)行目錄 ()
.如果真 (文件是否存在 (目錄 ＋ “/closeProcess.txt”) ＝ 假)
  信息框 (“找不到closeProcess.txt文件！”, 0, )
.如果真結(jié)束
文件ID ＝ 打開文件 (目錄 ＋ “/closeProcess.txt”, , )
內(nèi)容 ＝ 讀入一行 (文件ID)
.判斷循環(huán)首 (內(nèi)容 ≠ “”)
  加入成員 (進(jìn)程數(shù)組, 內(nèi)容)
  內(nèi)容 ＝ 讀入一行 (文件ID)
.判斷循環(huán)尾 ()
' 信息框 (取數(shù)組成員數(shù) (進(jìn)程數(shù)組), 0, )
關(guān)閉文件 (文件ID)
關(guān)閉進(jìn)程 ()
' 時(shí)鐘1.時(shí)鐘周期 ＝ 5000
_按鈕1_被單擊 ()

.子程序 關(guān)閉進(jìn)程
.局部變量 i, 整數(shù)型
.局部變量 進(jìn)程ID, 整數(shù)型

.變量循環(huán)首 (1, 取數(shù)組成員數(shù) (進(jìn)程數(shù)組), 1, i)
  進(jìn)程ID ＝ 進(jìn)程_名取ID (進(jìn)程數(shù)組 [i])
  .如果真 (進(jìn)程ID ≠ 0)
    進(jìn)程_結(jié)束 (進(jìn)程ID)
  .如果真結(jié)束

.變量循環(huán)尾 ()

.子程序 _按鈕1_被單擊

時(shí)鐘1.時(shí)鐘周期 ＝ 5000
標(biāo)簽1.標(biāo)題 ＝ “程序監(jiān)聽中...”

.子程序 _時(shí)鐘1_周期事件

關(guān)閉進(jìn)程 ()

.子程序 _按鈕2_被單擊

時(shí)鐘1.時(shí)鐘周期 ＝ 0
標(biāo)簽1.標(biāo)題 ＝ “程序監(jiān)聽取消了...”

.子程序 __啟動(dòng)窗口_托盤事件
.參數(shù) 操作類型, 整數(shù)型

.如果真 (操作類型 ＝ 2) ' 操作類型2雙擊托盤圖標(biāo)
  可視 ＝ 真
  位置 ＝ 1
  置托盤圖標(biāo) ({ }, “”)
.如果真結(jié)束


.子程序 __啟動(dòng)窗口_位置被改變

.如果真 (位置 ＝ 2) ' 位置2窗口最小化
  置托盤圖標(biāo) (#圖片1, “noAd”)
  可視 ＝ 假
.如果真結(jié)束

.版本 2

.全局變量 進(jìn)程數(shù)組, 文本型, , "0"

.版本 2

.圖片 圖片1