如何使用事件源编写 Windows 日志事件

Question

我正在尝试编写 Windows 日志事件。

我阅读了这个answer，并尝试使用它但遇到了同样的问题reported here "The description for Event ID 1 from source PLCHIDSrv cannot be found..."

我正在尝试this solution，但不知道如何在Delphi中实现此代码

var data = new EventSourceCreationData("yourApp", "Application");
data.MessageResourceFile = pathToYourMessageFile;
EventLog.CreateEventSource(data);

Answer 1

您收到该错误是因为您没有将事件源添加到 Windows 注册表。

查看MSDN Documentation：

您可以使用默认的应用程序日志，而无需向注册表添加事件源。但是，除非您注册事件源并提供消息文件，否则事件查看器将无法将您的事件标识符代码映射到消息字符串。

同一链接包含一个带有 C++ 代码的示例，可以很容易地翻译成 Delphi。

更新

我刚刚找到这篇文章Writing an event logger with Delphi 2010，它展示了如何将事件源添加到注册表并写入事件日志。