如何获取一个模块在程序内加载的 基址？(100分)

列举一个程序的所有模块，能获取模块路径，但如何获取模块 基址？<br><br>在线求助，大家帮忙啊，谢谢！

ModuleListHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);<br>Module32First(ModuleListHandle, ModuleStruct);<br>Module32Next(ModuleListHandle, ModuleStruct);<br>...................<br>ModuleArray: array of TModuleEntry32;<br>......<br>Detail.items.add(format('模块基地址:%.8X' ,[Integer(ModuleArray.modBaseAddr)]));<br>.....................<br>&lt;&lt;windows 下核心编程&gt;&gt; &nbsp;有源码

to swanheart:<br><br>谢谢，刚才正在翻这本书，刚找到答案，结果你就先来一步，谢谢！