我如何写事件源的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。

UPDATE

我刚刚发现这篇文章Writing an event logger with Delphi 2010显示出如何的事件源添加到注册表，并写入到事件日志。