Запись в журнал приложений

← →
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]

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

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