Лог Windows

← →
Still Swamp (2006-04-26 14:35) [0]

Как отправить сообщение в стандартный журнал сообщений w32

← →
Poirot © (2006-04-26 15:58) [1]

http://www.rsdn.ru/Forum/Message.aspx?mid=10991&only=1
а также есть там в статьях полное описание чего и как делать - найти не смог, но он есть (с) як суслик :))

← →
Poirot © (2006-04-26 16:03) [2]

Нашёл :)

http://www.rsdn.ru/article/baseserv/services.xml#ERBAC

← →
Still Swamp (2006-04-27 14:16) [3]

Сенкс - волшебное слово - ReportEvent.

← →
Негодяй © (2006-04-28 10:01) [4]

Не все так просто, надо найти компилятор (где-то он у меня есть MC.exe), но в Нете можно легко найти, для создания каталога сообщений, и прописаться в реестре. если этого не делать, то в логах перед твоим сообщением будет стандартное сообщение Винды, о том что не может найти каталог сообщений. AppPath:=Application.ExeName; AppName:="YourApplicationName"; NumCategories:=2; If Reg.KeyExists(Format("\SYSTEM\CurrentControlSet\Services\Eventlog\Application\%s",[AppName])) then begin Reg.Free; exit; end; RegKey:= Format("\SYSTEM\CurrentControlSet\Services\EventLog\Application\%s",[AppName]); Try Reg.OpenKey(RegKey,True); // Ñîáñòâåííî&ari ng; èìÿ //Reg.WriteString("CategoryMessageFile",AppPath); // Ñîáñòâåííî&ari ng; èìÿ Reg.WriteString("EventMessageFile",AppPath); // Ìàêñèìàëüí&icir c;å êîëè÷åñòâî êàòåãîðèé //Reg.WriteInteger("CategoryCount",NumCategories); // Ðàçðåøàåì âñå òèïû Reg.WriteInteger("TypesSupported",EVENTLOG_SUCCESS or EVENTLOG_ERROR_TYPE or EVENTLOG_WARNING_TYPE or EVENTLOG_INFORMATION_TYPE); Reg.CloseKey; Finally Reg.Free; End; //try..finally}

что-то типа этого:)

Да, и не забудь сначала зарегистрироваться:

EventLog:=RegisterEventSource(nil,PChar("Имя твоего приложения"));

ReportEvent(EventLog,EVENTLOG_SUCCESS,1,0,nil,1,0,@MyMsg,nil);

Лог Windows Найти похожие ветки