如何为已引发的事件提供消息循环服务？

Question

我写服务我必须在我的应用程序中加载第三方com对象。当我使用Windows应用程序时，每件事情都正常工作，但在我的服务中，服务对象永远不会触发事件，我在两者中使用相同的代码。 感谢

Answer 1

服务不倾向于运行窗口消息泵来接收此类消息。 我需要在我的服务中有消息循环

while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
  Try
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  Except
    Application.HandleException(Self);
  End;
end;