delphi - Delphi 如何与 Detours 库互操作？

Question

我正在寻找 Delphi 示例，但我只能找到 C++ 示例代码。

例如，如何在Delphi中定义下面的钩子(Hook)？

DETOUR_TRAMPOLINE(int   WINAPI SetScrollInfoT(HWND, int, LPCSCROLLINFO, BOOL), SetScrollInfo)

Answer 1

如果您只需要 Hook 到您自己的进程中，您可以查看 Detours 库。经作者同意，我最近将其纳入我的 Cromis 库中。

可以找到here 。只需下载整个库并使用 Cromis.Detours。它可以在 32 位和 64 位上运行，而且写得非常好。