Форум: "WinAPI";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизReadEventLog Найти похожие ветки
← →
IronWit (2002-02-15 11:56) [6]все, ответ готов, комментарии в мыло,если что.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
type
{Event log entry copied from the Win32 SDK.}
TEventLog = record
Length:dword;
Reserved: DWord;
RecordNumber: DWord;
TimeGenerated: DWord;
TimeWritten: DWord;
EventID: Integer;
EventType: Word;
NumStrings: Word;
EventCategory: Word;
ReservedFlags: Word;
ClosingRecordNumber: DWord;
StringOffset: DWord;
UserSIDLength: DWord;
UserSIDOffset: DWord;
DataLength: DWord;
DataOffset: DWord;
DATA: array[0..1024] of char;
end;
const
EVENTLOG_SEQUENTIAL_READ = $0001;
EVENTLOG_SEEK_READ = $0002;
EVENTLOG_FORWARDS_READ = $0004;
EVENTLOG_BACKWARDS_READ = $0008;
var
EvLogHandle: tHandle;
Eventm:PChar;
dw1,dw2,dw:dword;
buffer:TEventLog;
Begin
Eventm:="Security";
// Получаем дескриптор журнала приложений на компьютере Server
// Так-же можно открыть журнал системы (Eventm="System") и
// журнал безопастности (Eventm="Security")
//Eventm:="Application";
EvLogHandle := OpenEventLog ("pteh_bd", Eventm);
GetNumberOfEventLogRecords(EvLogHandle,dw);
readeventlog(evloghandle,EVENTLOG_SEQUENTIAL_READ or EVENTLOG_BACKWARDS_READ,dw,@buffer,sizeof(buffer),dw1,dw2);
closeeventlog(EvLogHandle);
end.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c