需要帮助将 Vb.Net 转换为 Delphi（API 内容（？））

Question

    Dim ThisModule As IntPtr
    Dim Proc As Process() = Process.GetProcessesByName("Sol")

    For i = 0 To Proc(0).Modules.Count - 1
        If (Proc(0).Modules(i).ModuleName.ToString.Contains("UxTheme")) Then
            ThisModule = Proc(0).Modules(i).BaseAddress
        End If
    Next

我已经制作了这段代码，并且工作完美，但是现在...我想在Delphi中制作它，问题是...我没有足够的知识来制作它，并且...在谷歌中，我还没有找到了我需要的信息。

提前致谢！。

Answer 1

您需要使用较低级别的 API，即工具帮助 API。如何获取所需内容的基本概述如下：

1. 调用 CreateToolhelp32Snapshot() 并传递 TH32CS_SNAPPROCESS。
2. 接下来使用 Process32First() 和 Process32Next() 遍历进程，直到找到所需的进程。
3. 调用CloseHandle()关闭快照。
4. 再次调用 CreateToolhelp32Snapshot()，这次传递 TH32CS_SNAPMODULE 和步骤 2 中找到的所需进程 ID。
5. 使用 Module32First() 和 < code>Module32Next() 直到找到所需的模块。
6. 调用CloseHandle()关闭快照。

Answer 2

您可以使用具有此类库的免费模块 MadCollection （madKernel，如果我没记错的话）。编码非常接近OP的编码。 （我用它来向我的程序之一的父进程发送消息）。

编辑：
关于许可问题，请参阅 Madshi.net 许可协议页面的引用：

免费软件产品

软件包“madBasic”、“madKernel”、“madShell”
并且“madSecurity”可以自由使用
对于非商业和商业
使用，无需购买许可证，
前提是：

(1) 作者
马蒂亚斯·劳恩 (Mathias Rauen) 获得应有的荣誉
为了他的工作。

(2) 被许可人确实
不声称该库是编写的
由他。

(3) 如果软件被修改，任何包含修改的软件必须在显着位置注明
修改产品或文档

 (a) 已被修改，

  (b) 进行修改的个人或实体的身份

和

 (c) 进行修改的日期。

(4) 上述包裹不得转让给任何第三方，除非
该第三方收到本协议的副本并同意受其约束
遵守其所有条款和条件。