易语言基础——简单的设备管理器

1.实现效果

2.源码

说明：程序中引入了

精易模块

，实现

取进程路径

功能

.版本 2
.支持库 eAPI
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

子程序_显示进程信息 ()


.子程序 子程序_显示进程信息
.局部变量 进程数组, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 表项索引, 整数型

进程数组 ＝ 取系统进程列表 ()
.如果真 (取数组成员数 (进程数组) ＝ 0)
    返回 ()
.如果真结束

状态条1.置文本 (1, 到文本 (取数组成员数 (进程数组)))

.计次循环首 (取数组成员数 (进程数组), i)
    表项索引 ＝ 超级列表框1.插入表项 (, 到文本 (进程数组 [i].进程标识符), , , , )
    超级列表框1.置标题 (表项索引, 1, 进程数组 [i].进程名称)
    .如果真 (进程数组 [i].进程标识符 ≤ 4)
        到循环尾 ()
    .如果真结束

    超级列表框1.置标题 (表项索引, 2, 取进程路径 (进程数组 [i].进程标识符))

.计次循环尾 ()



.子程序 _刷新列表_被选择

超级列表框1.全部删除 ()
子程序_显示进程信息 ()


.子程序 _退出程序_被选择

销毁 ()


.子程序 _始终保持窗口最前_被选择

.判断开始 (_启动窗口.总在最前 ＝ 真)
    _启动窗口.总在最前 ＝ 假
    始终保持窗口最前.选中 ＝ 假
.默认
    _启动窗口.总在最前 ＝ 真
    始终保持窗口最前.选中 ＝ 真
.判断结束