"RomanMironov" <46676@users.rsdn.ru> wrote in message
news:2679332@news.rsdn.ru...
> Не разу не писал в журнал событий все как-то файлами пользовался, а тут
> решил попробовать....
> Запускается в сервисе:
> LogMessage('Error connect DB',EVENTLOG_ERROR_TYPE);
Не все так просто.
Во первых надо зарегить свой сервис как источник сообщений, например так:
const
pszLog = 'SYSTEM\CurrentControlSet\Services\EventLog\Application\';
begin
with TRegistry.Create(KEY_WRITE) do
try
RootKey := HKEY_LOCAL_MACHINE;
{Event log}
if OpenKey(pszLog + Name,True) then
begin
WriteString('EventMessageFile',ParamStr(0));
WriteInteger('TypesSupported',EVENTLOG_ERROR_TYPE);
CloseKey;
end;
{Description under Windows 2000 and higher}
if Win32MajorVersion >= 5 then
if OpenKey('System\CurrentControlSet\Services\' + Name,False) then
begin
WriteString('Description','your description');
CloseKey;
end;
finally
Free;
end;
end;
Во вторых,
читать до просветленияАвтор(ы): Сергей Холодилов
Дата: 22.06.2003
В статье описаны некоторые детали программирования служб Windows NT/2000/XP. Большая часть содержащихся в статье утверждений описывает реакцию Windows на какие-то действия службы. Если вы написали первую службу и хотите двигаться дальше, эта статья вам поможет.
раздел про event log.
Posted via RSDN NNTP Server 2.1 beta
Не разу не писал в журнал событий все как-то файлами пользовался, а тут
решил попробовать....
Запускается в сервисе:
LogMessage('Error connect DB',EVENTLOG_ERROR_TYPE);
Отрабатывает без ошибок, но в раздел приложений EVENTLOG после не зайти,
выдает "AppName: mmc.exe AppVer: 5.1.2600.2180 ModName: ntdll.dll
ModVer: 5.1.2600.2180 Offset: 00036bd1" и EVENTLOG завершается.
Posted via RSDN NNTP Server 2.1 beta
