XP风格 (2
)加载Aero特效 ()加载皮肤 (13
)盘符 ＝
“C:\Windows\WinSxS”启动线程 (&搜索, ,
)启动线程 (&获取字体, ,
)启动线程 (&获取系统进程, ,
)
如果真 (输入框 (“请输入进程的名称或者路径”,
“输入进程名称或路径”,
“在此处键入进程名称或者程序路径”, 新建进程, 1,
) ＝
真)
如果真 (取反 (运行 (新建进程, 假,
))
)信息框 (“进程名称或者路径不正确！”,
#警告图标, “提示：”,
)_新建_被选择 ()返回 ()
返回 ()_按钮_结束进程_被单击 ()如果真 (取反 (终止进程 (当前选择的表项
))
)信息框 (“终止进程失败！”,
#错误图标, “提示：”,
)启动线程 (&获取系统进程, , )当前选择的表项 ＝ 超级列表框进程信息.
取标题 (超级列表框进程信息.现行选中项, 0
)启动线程 (&获取系统进程, ,
)判断 (高级选择夹1.现行子夹 ＝ 0
) 
启动线程 (&获取系统进程, ,
)
判断 (高级选择夹1.现行子夹 ＝ 1
) 
启动线程 (&获取字体, ,
)判断 (高级选择夹1.现行子夹 ＝ 2
) 
信息框 (“由于时间问题，我只开了个头，希望大家能发挥想象自己写一下！”,
#信息图标, “提示”,
)
返回 ()
启动线程 (&获取字体, ,
)状态条1.
置文本 (1,
“CPU使用率：” ＋
到文本 (取CPU占用率 ()) ＋
“%”)状态条1.
置文本 (2,
“剩余：” ＋
到文本 (取内存容量信息 (1
)) ＋
“MB”)_启动窗口.超级列表框进程信息.
全部删除 ()进程_全 ＝
取系统进程列表 ()
计次循环首 (取数组成员数 (进程_全
), 计次变量
)进程名 ＝ 进程_全
[计次变量
].进程名称
进程线程数 ＝ 进程_全
[计次变量
].线程数
进程线程优先权 ＝ 进程_全
[计次变量
].线程优先权
进程模块标识符 ＝ 进程_全
[计次变量
].进程模块标识符
pid ＝ 进程_全
[计次变量
].进程标识符
索引 ＝ _启动窗口.超级列表框进程信息.
插入表项 (, , , , ,
)_启动窗口.超级列表框进程信息.
置标题 (索引, 0, 进程名
)_启动窗口.超级列表框进程信息.
置标题 (索引, 2,
到文本 (进程线程数
))
_启动窗口.超级列表框进程信息.
置标题 (索引, 1,
到文本 (pid
))
_启动窗口.超级列表框进程信息.
置标题 (索引, 3,
到文本 (进程线程优先权
))
_启动窗口.超级列表框进程信息.
置标题 (索引, 4,
“正在运行”) 
计次循环尾 ()_启动窗口.状态条1.
置文本 (0,
“进程数：” ＋
到文本 (计次变量
))
|
| xplib |
| EThread |
| eAPI |
| iext |
| iext3 |
