.版本
2
.程序集
窗口程序集1
.子程序
__啟動窗口_創建完畢
時鐘1.時鐘周期
=
1
.子程序
程序運行檢測,
邏輯型
.參數
程序名,
文本型
.局部變量
進程句柄,
邏輯型
.局部變量
進程快照,
整數型
.局部變量
進程信息,
進程信息32
.局部變量
結果,
邏輯型
進程快照
=
CreateToolhelp32Snapshot
(15,
0)
.如果真
(進程快照
=
0)
返回
(假)
.如果真結束
進程信息.類型大小
=
296
進程句柄
=
Process32First
(進程快照,
進程信息)
結果
=
假
.判斷循環首
(進程句柄)
.如果真
(尋找文本
(到小寫
(到文本
(進程信息.執行文件名)),
到小寫
(程序名),
,
真)
≠
-1)
結果
=
真
跳出循環
()
.如果真結束
進程句柄
=
Process32Next
(進程快照,
進程信息)
.判斷循環尾
()
CloseHandle
(進程快照)
返回
(結果)
.子程序
_時鐘1_周期事件
.如果
(程序運行檢測
(“1.exe”)
=
真)
結束
()
.否則
.如果結束