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

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

Запись в журнал приложений [D7, Win2k]

Sergey Ivanov ©   (2007-03-21 10:06:00) 

Хочу из сервиса записать событие в журнал приложений.

нашел пример, но в дельфи не нашел ни чего похожего.

где это живёт в дельфи?

Option Explicit
Option Strict

Imports System
Imports System.Diagnostics
Imports System.Threading

Class MySample
   Public Shared Sub Main()
       
       ' Create the source, if it does not already exist.
       If Not EventLog.SourceExists("MySource") Then
           EventLog.CreateEventSource("MySource", "MyNewLog")
           Console.WriteLine("CreatingEventSource")
       End If
       
       ' Create an EventLog instance and assign its source.
       Dim myLog As New EventLog()
       myLog.Source = "MySource"
       
       ' Write an informational entry to the event log.    
       myLog.WriteEntry("Writing to event log.")
   End Sub 'Main
End Class 'MySample

---

Sergey Ivanov   (2007-03-21 10:36:00) [1]

Уже смотрю. Спасибо.

---

Rouse_   (2007-03-21 10:32:00) [2]

http://rouse.drkb.ru/winapi.php#evntlog

---

VirEx   (2007-03-21 10:07:00) [3]

>  Sergey Ivanov   (21.03.07 10:06)

у Rouse_ на его сайте есть пример если не ошибаюсь

---

Наверх