dll取自身文件名

易语言 2021-07-12 16:00:07

.子程序 GetCurrentModule, 整数型
.局部变量 mbi, MEMORY_BASIC_INFORMATION

.如果真 (VirtualQuery (到整数 (&GetCurrentModule), mbi, 取数据类型尺寸 (#整数型) × 7 ＋取数据类型尺寸 (#短整数型)) ≠ 0)
返回 (mbi.AllocationBase)