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

Question

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

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

和

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

最终更新:
所有这些东西(TThread.Synchronize、TThread.Queue、PostThreadMessage 等)都是通过消息来工作的。因此，请确保 dll 的主机应用程序在等待回调时处理消息。

Answer 1

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

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