Write(Message: String; eventType: SysEventType);
Message. Текст события;
eventType. Категория события.
Метод Write создает запись в журнале событий Windows.
Параметр eventType не может принимать значение Null.
Sub UserProc;
Var
WinLog: ISysEventLog;
Begin
WinLog := New SysEventLog.Create;
WinLog.Write("Предупреждение!", SysEventType.Warning);
End Sub UserProc;
После выполнения примера в журнале событий Windows будет сделана запись.
См. также: