NTDLL系列两种枚举模块方法

易语言NTDLL系列两种枚举模块方法例子。
LdrQueryProcessModuleInformation (局_系统模块信息, 0, 局_返回长度)
调试输出 (局_返回长度)
.如果真 (局_返回长度 ＞ 0)
LdrQueryProcessModuleInformation (局_系统模块信息, 局_返回长度, 0)
局_系统模块信息.数量 ＝ 局_系统模块信息.数量 － 1
调试输出 (局_系统模块信息.数量)
.计次循环首 (局_系统模块信息.数量, 局_索引)
调试输出 (局_索引, “部分句柄”, 局_系统模块信息.模块 [局_索引].部分句柄)
调试输出 (局_索引, “映射库句柄”, 局_系统模块信息.模块 [局_索引].映射库句柄)
调试输出 (局_索引, “模块句柄”, 局_系统模块信息.模块 [局_索引].模块句柄)
调试输出 (局_索引, “模块长度”, 局_系统模块信息.模块 [局_索引].模块长度)
调试输出 (局_索引, “模块标志”, 局_系统模块信息.模块 [局_索引].模块标志)
调试输出 (局_索引, “载入顺序”, 局_系统模块信息.模块 [局_索引].载入顺序)
调试输出 (局_索引, “初始化顺序”, 局_系统模块信息.模块 [局_索引].初始化顺序)
调试输出 (局_索引, “载入数量”, 局_系统模块信息.模块 [局_索引].载入数量)
调试输出 (局_索引, “名称长度”, 局_系统模块信息.模块 [局_索引].名称长度)
调试输出 (局_索引, “模块名称”, 到文本 (局_系统模块信息.模块 [局_索引].模块名称))
调试输出 (“——————————————————————————————————————”)
.计次循环尾 ()