Форум: "WinAPI";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Вниз
Запись в журнал приложений Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c