delphi - TEventLogger 有灯吗？

Question

我想了解如何将 Delphi 5 应用程序的事件记录到 Windows 日志，以及另一篇文章 here我发现我可以使用 TEventLogger 类来执行此操作。

但是，我找不到任何有关 TEventLogger.LogMessage 过程语法的文档，因此我不知道所有参数的含义、如何使用它们，甚至不知道可能的情况值可用。

我尝试环顾四周，发现的只是 Embarcadero 的一页，说明该函数存在，但没有任何语法说明，而且 MSDN 没有任何帮助，因为我只能找到 BizTalk 版本，这对我没有任何好处。

是否有人有帮助页面或相关信息，可以帮助我了解我可以用它做什么？

Answer 1

TEventLogger 是 TService 的内部帮助程序类。

您可以使用 TService.LogMessage() 函数记录消息，而不是直接调用 TEventLogger。 LogMessage() 的参数直接与 Win32 API ReportEvent() 的参数匹配功能。

查看 Win32 API 文档以获取详细信息。

如果您不是在编写服务应用程序，那么您需要调用Win32 API RegisterEventSource()和ReportEvent()而是直接使用函数。