在 Windows 事件日志（在 Delphi 中）的应用程序节点之外创建自定义事件日志

Question

如何在 Windows 事件日志的 "Application" 节点上创建（在 Delphi 中）自定义事件日志？

//The code below write on the Application node only

with TEventLogger.Create('JarvisAgent') do
begin
  try
    try
      LogMessage(Msg, EVENTLOG_INFORMATION_TYPE, 0, 2);
    finally
      Free;
    end;
  except
  end;
end;

Answer 1

TEventLogger 使用较旧的 ReportEvent() API 来记录消息。对于 API，您必须在注册表中注册自定义日志文件及其支持的事件源名称、事件类型等。然后您可以使用您注册的事件源名称创建 TEventLogger，消息将转到您注册的日志文件。

这些都记录在 MSDN 上。

About Event logging

Event Logging Elements

另见：

Write in Windows-Eventlog with Delphi Event-ID not found

to .

在 Windows 事件日志（在 Delphi 中）的应用程序节点之外创建自定义事件日志

Create a custom EventLog other than on the Application node in the Windows EventLog (in Delphi)

delphi

custom-eventlog