小歪查看系统进程，系统字体列表，系统dll

Eyy讲师小歪 · 发表于 2017-4-27 09:42:29

一个非常简单的程序，主要是使用易语言自身的命令读取了进程的部分信息，系统安装的字体列表，和当前的dll列表。其中dll读取由于时间问题，只是开了个头，希望大家能自己写上！

源码如下：

窗口程序集名	保留	保留	备注
窗口程序集1

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

XP风格 (2)
加载Aero特效 ()
加载皮肤 (13)
盘符＝ “C:\Windows\WinSxS”
启动线程 (&搜索, , )
启动线程 (&获取字体, , )
启动线程 (&获取系统进程, , )

子程序名	返回值类型	公开	备注
_新建_被选择

如果真 (输入框 (“请输入进程的名称或者路径”, “输入进程名称或路径”, “在此处键入进程名称或者程序路径”, 新建进程, 1, ) ＝真)

如果真 (取反 (运行 (新建进程, 假, )))

信息框 (“进程名称或者路径不正确！”, #警告图标, “提示：”, )

_新建_被选择 ()

返回 ()

子程序名	返回值类型	公开	备注
_结束进程_被选择

_按钮_结束进程_被单击 ()

子程序名	返回值类型	公开	备注
_按钮_结束进程_被单击

如果真 (取反 (终止进程 (当前选择的表项)))

信息框 (“终止进程失败！”, #错误图标, “提示：”, )
启动线程 (&获取系统进程, , )

子程序名	返回值类型	公开	备注
_超级列表框进程信息_当前表项被改变

当前选择的表项＝超级列表框进程信息.取标题 (超级列表框进程信息.现行选中项, 0)

子程序名	返回值类型	公开	备注
_刷新进程列表_被选择

启动线程 (&获取系统进程, , )

子程序名	返回值类型	公开	备注
_高级选择夹1_子夹被改变

判断 (高级选择夹1.现行子夹＝ 0) ' 进程信息

启动线程 (&获取系统进程, , )

判断 (高级选择夹1.现行子夹＝ 1) ' 字体信息

启动线程 (&获取字体, , )

判断 (高级选择夹1.现行子夹＝ 2) ' DLL信息

信息框 (“由于时间问题，我只开了个头，希望大家能发挥想象自己写一下！”, #信息图标, “提示”, )

返回 ()

子程序名	返回值类型	公开	备注
_按钮_刷新字体列表_被单击

启动线程 (&获取字体, , )

子程序名	返回值类型	公开	备注
_时钟1_周期事件

状态条1.置文本 (1, “CPU使用率：” ＋到文本 (取CPU占用率 ()) ＋ “%”)
状态条1.置文本 (2, “剩余：” ＋到文本 (取内存容量信息 (1)) ＋ “MB”)

窗口程序集名	保留	保留	备注
程序集进程

子程序名	返回值类型	公开	备注
获取系统进程

变量名	类型	静态	数组	备注
计次变量	整数型

_启动窗口.超级列表框进程信息.全部删除 ()
进程_全＝取系统进程列表 ()

计次循环首 (取数组成员数 (进程_全), 计次变量)

进程名＝进程_全 [计次变量].进程名称

进程线程数＝进程_全 [计次变量].线程数

进程线程优先权＝进程_全 [计次变量].线程优先权

进程模块标识符＝进程_全 [计次变量].进程模块标识符

pid ＝进程_全 [计次变量].进程标识符

索引＝ _启动窗口.超级列表框进程信息.插入表项 (, , , , , )

_启动窗口.超级列表框进程信息.置标题 (索引, 0, 进程名)

_启动窗口.超级列表框进程信息.置标题 (索引, 2, 到文本 (进程线程数))

_启动窗口.超级列表框进程信息.置标题 (索引, 1, 到文本 (pid))

_启动窗口.超级列表框进程信息.置标题 (索引, 3, 到文本 (进程线程优先权))

_启动窗口.超级列表框进程信息.置标题 (索引, 4, “正在运行”)

' _启动窗口.超级列表框进程信息.置标题 (索引, 3, 到文本 (进程模块标识符))

计次循环尾 ()
_启动窗口.状态条1.置文本 (0, “进程数：” ＋到文本 (计次变量))

i支持库列表	支持库注释
xplib	XP风格界面库
EThread	多线程支持库
eAPI	应用接口支持库
iext	扩展界面支持库一
iext3	扩展界面支持库三

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