枚举驱动模块源代码

资源介绍：

getsystemdrive枚举驱动源代码，驱动调试例程

资源作者：

易语言模块源码下载

资源界面：

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。


.子程序 getsystemdrive, 逻辑型, 公开
.参数 数组, 文本型, 数组
.参数 数组个数, 整数型
.参数 驱动地址, 文本型, 可空 数组
.局部变量 lpImageBase, 整数型, , "0"
.局部变量 lpcbNeeded, 整数型, , "0"
.局部变量 a, 整数型
.局部变量 文本, 文本型

数组清零 (lpImageBase)
重定义数组 (lpImageBase, 假, 数组个数)
' 本源码来自三叶资源网(www.sanye.cx)
EnumDeviceDrivers (lpImageBase, 数组个数, lpcbNeeded)
文本 ＝ 取空白文本 (数组个数)
.计次循环首 (取数组成员数 (lpImageBase), a)
    GetDeviceDriverBaseName (lpImageBase [a], 文本, 数组个数)
    .判断开始 (lpImageBase [a] ≠ 0)
        加入成员 (驱动地址, 取十六进制文本 (lpImageBase [a]))
        加入成员 (数组, 文本)
    .默认
        ' 本源码来自三叶资源网(www.sanye.cx)
    .判断结束

.计次循环尾 ()
返回 (真)

资源下载：