Занесение сообшения в EventLog (Windows NT)
Я постоянно читаю конференции по дельфи и частенько встечается вопрос как
занести свое сообщение в 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. надеюсь это кому нибудь поможет
|
|
|
|
Прогноз погоды в Минеральных Водах. Прогноз погоды на 10 дней. г. Бердск. . гинекология москва . коттеджный поселок глаголево . Курсы визажистов, стилистов - курсы визажистов. Бесплатная консультация визажиста. . |
