如何读取NT(2000)的日志文件？？？？

[nevid]

在C++中用ReadEventLog读取NT的日志文件比较简单，但在Delphi中没有定义EVENTLOGRECORD的结构，不知哪位在Delphi中写过读取NT日志，该怎么做？

[13161795500]

关注！UP！抢分！

[sysu]

type
PEVENTLOGRECORD = ^EVENTLOGRECORD;
EVENTLOGRECORD = record
Length: DWORD;
Reserved: DWORD;
RecordNumber: DWORD;
TimeGenerated: DWORD;
TimeWritten: DWORD;
EventID: DWORD;
EventType: WORD;
NumStrings: WORD;
EventCategory: WORD;
ReservedFlags: WORD;
ClosingRecordNumber: DWORD;
StringOffset: DWORD;
UserSidLength: DWORD;
UserSidOffset: DWORD;
DataLength: DWORD;
DataOffset: DWORD;
end;

[nevid]

to sysu:这个结构我用过，但没有成功，能否给我一个简单例子，不但能读出以上信息，还能读出以下信息：
// Then follow:

//
// TCHAR SourceName[]
// TCHAR Computername[]
// SID UserSid
// TCHAR Strings[]
// BYTE Data[]
// CHAR Pad[]
// DWORD Length;
//