Windows EventLog（Delphi）のアプリケーションノード以外でカスタムEventLogを作成

Question

Windows EventLogの "Application"ノード以外のカスタムEventLogを（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

も参照してください：WinAPI ReportEvent - component not installedへ

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

My answerを。