.版本 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) .判断结束 .计次循环尾 () 返回 (真)