電源オン、オフの時間の取得２ (ID:33461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 先日ofZさんにレスいただき、下記のようにReadEventLogで全てを読み込み 処理したいのですが、eventID= 6005 or 6006が読み込めたり、飛ばされたりで思った処理ができません。 recordNumberとか確認しましたが、やはりシーケンシャルではありませんでした。私にはまったく判りません。 これはどうしようもないでしょうか？ 環境はXP、D7です。 TButtonとTMemoをおいて type // Internal structure for event logs PEVENTLOGRECORD = ^EVENTLOGRECORD; EVENTLOGRECORD = packed 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; // Then follows Variant Area ..... // TCHAR SourceName[] // TCHAR Computername[] // SID UserSid // TCHAR Strings[] // BYTE Data[] // CHAR Pad[] // DWORD Length; end; TEventLogRecord =EVENTLOGRECORD; const EVENTLOG_SEQUENTIAL_READ = 1; EVENTLOG_SEEK_READ = 2; EVENTLOG_FORWARDS_READ = 4; EVENTLOG_BACKWARDS_READ = 8; function TimeGeneratedToDateTime(aTimeGenerated: DWORD): TDateTime; const SecondPerDay = 60 * 60 * 24; //一日の秒数 begin Result := EncodeDate(1970,1,1) + EncodeTime(9,0,0,0); Result := ((Result * SecondPerDay) + aTimeGenerated) / SecondPerDay; end; procedure TForm1.Button2Click(Sender: TObject); const //最新のログから順次読み込む READ_FLAG= EVENTLOG_SEQUENTIAL_READ or EVENTLOG_BACKWARDS_READ; var eLogHandle: THandle; logCount: DWORD; i: Integer; eventID: Integer; pBuf: PEventLogRecord; bufSize: Integer; readNum, readNeed: DWORD; lastLogOn: TDateTime; lastLogOut: TDateTime; begin eLogHandle := OpenEventLog(nil, 'System'); //クリア lastLogOn := 0; lastLogOut := 0; Memo1.Lines.Clear; if eLogHandle > 0 then begin //ログ数を取得 if not GetNumberOfEventLogRecords(eLogHandle, logCount) then logCount := 0; //メモリ確保 bufSize := SizeOf(TEventLogRecord); pBuf := AllocMem(bufSize); for i := 1 to logCount do begin {読み込み} if not ReadEventLog(eLogHandle, READ_FLAG, logCount - 1, pBuf, bufSize, readNum, readNeed) then begin if GetLastError = ERROR_INSUFFICIENT_BUFFER then begin //メモリの再割り当て bufSize := readNeed; ReallocMem(pBuf, bufSize); if not ReadEventLog(eLogHandle, READ_FLAG, logCount - 1, pBuf, readNeed, readNum, readNeed) then begin //失敗 Break; end; end else begin //失敗 Break; end; end; eventID := pBuf^.EventID AND $FFFF; if eventID = 6005 then begin lastLogOn := TimeGeneratedToDateTime(pBuf^.TimeGenerated); Memo1.Lines.Add('最終ログイン：' + FormatDateTime('yyyy/mm/dd hh:nn:ss', lastLogOn)); end else if eventID = 6006 then begin lastLogOut := TimeGeneratedToDateTime(pBuf^.TimeGenerated); Memo1.Lines.Add('最終ログオフ：' + FormatDateTime('yyyy/mm/dd hh:nn:ss', lastLogOut)); end; end; //メモリ開放 FreeMem(pBuf); //ログを閉じる CloseEventLog(eLogHandle); end; end;