delphi – 如何将方法作为回调传递给Windows API调用(后续)？

这篇文章是 Ran发布的相关 question的后续跟踪.

accepted answer坚持使用通常的普通旧功能.

这段摘录特别引起了我的注意：

An instance method has an extra,implicit,parameter containing the
instance reference,i.e. Self.

有坚定的信念,应该有一种方法来使用一种“参数”适配器(重新措辞摆脱不必要的自我隐式引用,并提供指向适应的适应回调函数的指针),我最终找到这个名为Callback的article一个班级到Peter Morris.

总而言之,他使用thunking技术作为适应技巧. (免责声明：我从未测试过代码).

我知道它不是一个非常干净的解决方案,但它允许OO设计具有所有所谓的好处.

我的问题：

知道TCallbackThunk是基于回调函数签名的,如果像Peter Morris那样做的话,上面提到的帖子的答案是什么呢？

.

解决方法

由于EnumWindows(引用问题中的函数)提供了数据参数,因此您不需要完成所有工作.你可以在那里放置你想要的任何值,例如答案中展示的对象参考. Morris的技术更适合不提供任何通用数据参数的回调函数.

要调整使用Morris代码的答案,首先需要确保回调方法的签名与API的回调函数的签名相匹配.因为我们正在调用EnumWindows,所以我们需要一个返回Bool的双参数函数.调用约定需要是stdcall(因为Morris的代码假定它,并且很难破坏任何其他调用约定).

function TAutoClickOKThread.cbEnumWindowsClickOK(
  Wnd: HWnd; Param: LParam): Bool; stdcall;
begin
  // ...
end;

接下来,我们设置TCallbackThunk数据结构,其中包含所有机器代码和参考预期回调方法的跳转偏移.

但是,我们不使用Morris描述的方式.他的代码将数据结构放在堆栈上.这意味着我们将可执行代码放在堆栈上.现代处理器和操作系统不再允许这样 – 操作系统将停止您的程序.我们可以通过调用VirtualProtect来修改当前堆栈页面的权限,允许它被执行,但这使整个页面可执行,我们不想让程序保持打开以进行攻击.相反,我们将为thunk记录分配一块内存,与堆栈分开.

procedure TAutoClickOKThread.Execute;
var
  Callback: PCallbackThunk;
begin
  Callback := VirtualAlloc(nil,SizeOf(Callback^),Mem_Commit,Page_Execute_ReadWrite);
  try
    Callback.POPEDX := $5A;
    Callback.MOVEAX := $B8;
    Callback.SelfPtr := Self;
    Callback.PUSHEAX := $50;
    Callback.PUSHEDX := $52;
    Callback.JMP := $E9;
    Callback.JmpOffset := Integer(@TAutoClickOKThread.cbEnumWindowsClickOK)
      - Integer(@Callback.JMP) - 5;

    EnumWindows(Callback,0);
  finally
    VirtualFree(Callback);
  end;
end;

请注意,那些是该记录中的32位x86指令.我不知道相应的x86_64指令是什么.