进程管理器能识别并结束隐藏附给列表框变色模块

size ＝ GetLogicalDriveStringsA (0, { })
buf ＝ 取空白字节集 (size)
GetLogicalDriveStringsA (size, buf) ' 获取逻辑驱动器文本
数组 ＝ 分割字节集 (buf, { 0 }, )
驱动器数目 ＝ 取数组成员数 (数组) － 1
.如果真 (驱动器数目 ＞ 0)
重定义数组 (逻辑驱动器, 假, 驱动器数目)
重定义数组 (DOS设备, 假, 驱动器数目)
.计次循环首 (驱动器数目, n)
buf ＝ 数组 [n]
buf [取字节集长度 (buf)] ＝ 0
逻辑驱动器 [n] ＝ 到文本 (buf)
buf_ ＝ 取空白文本 (260)
QueryDosDeviceA (逻辑驱动器 [n], buf_, 260)
DOS设备 [n] ＝ buf_
.计次循环尾 ()
n ＝ 0
.计次循环首 (驱动器数目, n)
.如果真 (寻找文本 (txt, DOS设备 [n], , 真) ≠ -1)
' 把路径中类似于 \Device\HarddiskVolume1 的部分用 C:、D:等对应代替
txt ＝ 子文本替换 (txt, DOS设备 [n], 逻辑驱动器 [n], 0, 1, 假)
返回 (txt)
跳出循环 ()
.如果真结束

.计次循环尾 ()