| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Лог Windows [D7, WinXP]

Still Swamp ©   (2006-04-26 14:35:00) 

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

---

Poirot   (2006-04-28 13:57:00) [1]

2 Негодяй ©   (28.04.06 10:01) [4]
IMHO по ссылке [2] Это всё описано в полном объёме:)

---

Негодяй   (2006-04-28 10:10:00) [2]

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


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

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


---

Негодяй   (2006-04-28 10:01:00) [3]

Не все так просто, надо найти компилятор (где-то он у меня есть 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}

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

---

Still Swamp   (2006-04-27 14:16:00) [4]

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

---

Poirot   (2006-04-26 16:03:00) [5]

Нашёл :)

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

---

Poirot   (2006-04-26 15:58:00) [6]

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

---

Наверх