Скачать: CL | DM;

Запись в журнал приложений   Найти похожие ветки 

← →
Sergey Ivanov   (2007-03-21 10:06) [0]

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

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

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

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

---

← →
VirEx ©   (2007-03-21 10:07) [1]

>  Sergey Ivanov   (21.03.07 10:06)

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

---

← →
Rouse_ ©   (2007-03-21 10:32) [2]

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

---

← →
Sergey Ivanov   (2007-03-21 10:36) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c