Занесение сообшения в EventLog (Windows NT)

Alex V. Novikov пишет:

Я постоянно читаю конференции по дельфи и частенько встечается вопрос как занести свое сообщение в EventLog Windows NT. Недавно покопавшись в исходниках VCL я обнаружил такой интересный класс:

Unit SvcMgr;
{--Skip--}
{ TEventLogger }
TEventLogger = class(TObject) private FName: String;

FEventLog: Integer; public constructor Create(Name: String); destructor Destroy; override; procedure LogMessage(Message: String; EventType: DWord = 1; Category: Word = 0; ID: DWord = 0); end;
{--Skip--}

С помощью этого класса можно легко заносить свои сообщения в EventLog, правда этот класс был замечен мною только в Delphi 5, на счет других версий я не уверен.

Пример использования:

with TEventLogger.Create('My Application') do try LogMessage('Страшенная ошибка'); finally Free; end;

P.S. надеюсь это кому нибудь поможет [000890]

Содержание раздела