在类中封装winapi回调的最优雅的方法[重复]

我怀疑这是否优雅,但是,在我看来,最简单的方法是将类的方法地址转换为过程地址并将其传递给winapi。当然,这是一个黑客,但录像机对 classes.MakeObjectInstance ,如果仅针对特定构造..见 this question 对于一个 source 对于这种实现和其他一些更面向对象的方法来处理这种情况。

你可以使用 静止的 关键字。但它只能在新的Delphi版本中使用。

这样地:

type
  TMyThread = class
  private
    // ...

    class function ThreadProc(Param: Pointer): DWord; stdcall; static; // <- WinAPI call back

    function Execute: DWord; // <- actual callback
  public
    constructor Create;
    // ...
  end;

{ TMyThread }

constructor TMyThread.Create;
begin
  // ...
  FHandle := CreateThread(nil, 0, @ThreadProc, Self, 0, FID);
end;

class function TMyThread.ThreadProc(Param: Pointer): DWord;
begin
  Result := TMyThread(Param).Execute;
end;

function TMyThread.Execute: DWord;
begin
  MessageBox(0, 'Hello from thread', 'Information', MB_OK or MB_ICONINFORMATION);
  Result := 0;
end;

这里:threadproc是winapi回调例程。它需要某种形式的自定义参数,您可以在其中传递自我。它无法访问实例成员。这就是为什么它只是一个真正回调(execute)的包装器,它是类的一部分,可以访问它的字段和方法。