易语言外部线程操作模块

进程枚举 (进程名, 真)
.计次循环首 (取数组成员数 (进程名), n)
a ＝ 分割文本 (取进程路径及命令行 (进程名 [取数组成员数 (进程名) － n ＋ 1].进程ID), #引号, )
超级列表框1.插入表项 (0, 到文本 (进程名 [取数组成员数 (进程名) － n ＋ 1].进程ID), , , , )
' 超级列表框1.置标题 (0, 0, 到文本 (进程名 [n].进程ID))
超级列表框1.置标题 (0, 1, 到文本 (进程名 [取数组成员数 (进程名) － n ＋ 1].父进程ID))
超级列表框1.置标题 (0, 2, 进程名 [取数组成员数 (进程名) － n ＋ 1].进程名称)
超级列表框1.置标题 (0, 3, 取进程路径 (进程名 [取数组成员数 (进程名) － n ＋ 1].进程ID))
.如果 (取数组成员数 (a) ≠ 0)
.如果 (寻找文本 (a [取数组成员数 (a)], 取进程路径 (进程名 [n].进程ID), , 假) ≥ 0)
超级列表框1.置标题 (0, 4, “空”)
.否则
超级列表框1.置标题 (0, 4, a [取数组成员数 (a)])
.如果结束
数组清零 (a)
.否则
超级列表框1.置标题 (0, 4, “空”)
数组清零 (a)
.如果结束

.计次循环尾 ()