vb.net - 需要帮助将 Vb.Net 转换为 Delphi (API Stuff (?))

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。如何获得所需内容的基本大纲如下:

调用 CreateToolhelp32Snapshot()通过TH32CS_SNAPPROCESS .

接下来使用 Process32First() 处理流程和 Process32Next()直到你找到你想要的过程。

调用 CloseHandle()关闭快照。

调用 CreateToolhelp32Snapshot()再次，这次通过 TH32CS_SNAPMODULE以及在步骤 2 中找到的所需进程 ID。

使用 Module32First() 走模块和 Module32Next()直到你找到你想要的模块。

调用 CloseHandle()关闭快照。