Driverstatus源码

```.e
.版本 2
.支持库 eAPI

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

.子程序 __启动窗口_创建完毕
.局部变量 进程列表, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 当前进程名, 文本型
.局部变量 进程1存在, 逻辑型
.局部变量 进程2存在, 逻辑型

运行 (“C:\Program Files (x86)\HiClass\HiteCenter\HiteCenter.exe”, 假, )
运行 (“C:\Program Files (x86)\HiClass\HiteDriver\board_driver.exe”, 假, )
_启动窗口.移动 (1500, 150, , )
设置窗口透明度 (_启动窗口.取窗口句柄 (), 200)
延时 (5000)
进程1存在 ＝ 假
进程2存在 ＝ 假

' 获取系统进程列表
进程列表 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), i)
    当前进程名 ＝ 进程列表 [i].进程名称
    当前进程名 ＝ 取文件名 (当前进程名)

' 统一转换为小写进行对比
    .如果真 (到小写 (当前进程名) ＝ “board_driver.exe”)
        进程1存在 ＝ 真
    .如果真结束

.如果真 (到小写 (当前进程名) ＝ “hitecenter.exe”)
        进程2存在 ＝ 真
    .如果真结束

.计次循环尾 ()

' 更新显示状态
标签1.标题 ＝ “ board_driver.exe状态：” ＋ 选择 (进程1存在, “存在”, “不存在”)
标签2.标题 ＝ “ HiteCenter.exe状态：” ＋ 选择 (进程2存在, “存在”, “不存在”)

.子程序 取文件名, 文本型
.参数 完整路径, 文本型
.局部变量 位置, 整数型

位置 ＝ 倒找文本 (完整路径, “\”, , 假)
.如果 (位置 ≠ -1)
    返回 (取文本右边 (完整路径, 取文本长度 (完整路径) － 位置))
.否则
    返回 (完整路径)
.如果结束

.子程序 _按钮1_被单击
.局部变量 进程列表, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 当前进程名, 文本型
.局部变量 进程1存在, 逻辑型
.局部变量 进程2存在, 逻辑型

运行 (“C:\Program Files (x86)\HiClass\HiteCenter\HiteCenter.exe”, 假, )
运行 (“C:\Program Files (x86)\HiClass\HiteDriver\Driver\board_driver.exe”, 假, )
延时 (2000)

进程1存在 ＝ 假
进程2存在 ＝ 假

' 获取系统进程列表
进程列表 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), i)
    当前进程名 ＝ 进程列表 [i].进程名称
    当前进程名 ＝ 取文件名 (当前进程名)

' 统一转换为小写进行对比
    .如果真 (到小写 (当前进程名) ＝ “board_driver.exe”)
        进程1存在 ＝ 真
    .如果真结束

.如果真 (到小写 (当前进程名) ＝ “hitecenter.exe”)
        进程2存在 ＝ 真
    .如果真结束

.计次循环尾 ()

' 更新显示状态
标签1.标题 ＝ “ board_driver.exe状态：” ＋ 选择 (进程1存在, “存在”, “不存在”)
标签2.标题 ＝ “ HiteCenter.exe状态：” ＋ 选择 (进程2存在, “存在”, “不存在”)

.子程序 _按钮2_被单击
.局部变量 进程列表, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 当前进程名, 文本型
.局部变量 进程1存在, 逻辑型
.局部变量 进程2存在, 逻辑型

进程1存在 ＝ 假
进程2存在 ＝ 假

' 获取系统进程列表
进程列表 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), i)
    当前进程名 ＝ 进程列表 [i].进程名称
    当前进程名 ＝ 取文件名 (当前进程名)

' 统一转换为小写进行对比
    .如果真 (到小写 (当前进程名) ＝ “board_driver.exe”)
        进程1存在 ＝ 真
    .如果真结束

.如果真 (到小写 (当前进程名) ＝ “hitecenter.exe”)
        进程2存在 ＝ 真
    .如果真结束

.计次循环尾 ()

' 更新显示状态
标签1.标题 ＝ “ board_driver.exe状态：” ＋ 选择 (进程1存在, “存在”, “不存在”)
标签2.标题 ＝ “ HiteCenter.exe状态：” ＋ 选择 (进程2存在, “存在”, “不存在”)

```

[【附件】Driverstatus.e](/media/attachment/2025/04/Driverstatus.e)