delphi - 如何在主线程中执行不基于 TThread 的线程？

Question

例如，来自可执行文件或 dll 中CreateTimerQueueTimer回调提供的线程？具有与主线程相同的线程 ID 很重要。

procedure TMyMainClass.ExecuteMe(someparam: paramtype);
begin
  {something}
end;

和

procedure TimerCallback(pvContext: pointer; fTimerOrWaitFired: boolean); stdcall;
begin
  {do what ?}
end;

Final update:
所有这些东西（TThread.Synchronize,TThread.Queue等PostThreadMessage）都通过消息起作用。因此，请确保dll在等待回调时托管您处理消息的应用程序。

Answer 1

要在主线程中执行代码，而不访问TThread实例，请调用类方法TThread.Synchronize或TThread.Queue.

如果您碰巧使用的是没有这些方法的旧 Delphi 编译器，那么SendMessage或PostMessage使用用户定义的消息是最简单的解决方案。