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

Delphi , ОС и Железо , Сообщения Windows

Я постоянно читаю конференции по дельфи и частенько встечается вопрос как занести свое сообщение в 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. надеюсь это кому нибудь поможет

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сообщения Windows ::