イベントログをＣＳＶ形式で出力するには？ (ID:809)

名前

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

本文

コンソールアプリケーションではないですが、こんな感じで出来ました。
ShowMessageのところを、Writelnにすれば同じだと思います。

procedure TForm1.Button3Click(Sender: TObject);
var
  hEventLog: THandle;
  e: TEventLogRecord;
  buf: PChar;
  ReadFlags, ByteRead, Size1, Size2: Cardinal;
  Res: BOOL;

S: String;
  C: DWORD;
  PELR: PEventLogRecord;
begin
  ReadFlags := EVENTLOG_FORWARDS_READ or EVENTLOG_SEQUENTIAL_READ;

hEventLog := OpenBackupEventLog(nil, PChar(Edit2.Text));

while true do
  begin
    Size1 := 1;
    GetMem(buf, Size1);
    Res := ReadEventLog(
      hEventLog,
      ReadFlags,
      0,
      buf,
      Size1,
      ByteRead,
      Size2);
    if  (not Res)
    And (GetLastError <> ERROR_INSUFFICIENT_BUFFER) then Break;
    FreeMem(buf);
    buf := nil;

Size1 := Size2;
    GetMem(buf, Size1);
    Res := ReadEventLog(
      hEventLog,
      ReadFlags,
      0,
      buf,
      Size1,
      ByteRead,
      Size2);
    if not Res then Break;

PELR := PEventLogRecord(buf);

C := PELR.EventID;
    S := IntToStr(C);

ShowMessage(S);

FreeMem(buf);
  end;
  FreeMem(buf);

CloseEventLog(hEventLog);
end;

←解決時は質問者本人がここをチェックしてください。

戻る