写入Delphi中的事件日志

uses
  Windows, SysUtils;

const
  MY_EVENT_ID = 1000;
  MY_CATEGORY_ID = 100;

var
  hEventLog: THandle;
  dwEventID: DWORD;
  dwCategory: DWORD;
  pStrings: array[0..1] of PWideChar;

begin
  try
    // 打开事件日志
    hEventLog := RegisterEventSource(nil, 'MyApp');
    if hEventLog = 0 then
      RaiseLastOSError;
    try
      // 设置事件信息
      dwEventID := MY_EVENT_ID;
      dwCategory := MY_CATEGORY_ID;
      pStrings[0] := 'MyApp';
      pStrings[1] := 'This is a test event';

      // 写入事件日志
      if not ReportEvent(hEventLog, EVENTLOG_INFORMATION_TYPE,
          0, dwEventID, nil, 2, 0, @pStrings, nil) then
        RaiseLastOSError;
    finally
      // 关闭事件日志
      DeregisterEventSource(hEventLog);
    end;
  except
    on E: Exception do
      Writeln(E.Message);
  end;
end.