Перехват системного журнала

[Simply-Art]

Здравствуйте. Подскажите как установить перехват записи в системный журнал? Т.е. как отловить что в определенном системном журнале добавилось событие и получить его данные?

Находил тему про системный журнал, но не понял как установить перехват. Чтение запросом "WQL" я находил, но это не то что нужно, т.к. читать журнал с периодом не вариант для отлова событий. А как сделать перехват не могу сообразить

[Simply-Art]

Разобрался с кодом, но не с ресурсами. Добавляем файл FWEventLog.pas к проекту, далее пишем код:

uses
  ... FWEventLog;

type
 ...
  private
    procedure OnEventRead(Sender: TObject; EventRecord: TFWEventLogRecord);
  public
    EventLog: TFWEventLog;
  end;

procedure TForm1.OnEventRead(Sender: TObject; EventRecord: TFWEventLogRecord);
begin
if EventRecord.Number = 1 then
  begin
    // обрабатываем событие журнала
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EventLog := TFWEventLog.Create('FWEventLogDemo');
  SourceName := RegEventSources[TFWLocalEventSources(2)];
  if (osRead in EventLog.OpenState) then EventLog.Close(osRead);
  if not EventLog.Open(TFWLocalEventSources(2), osRead) then
    //ShowMessage('ошибка открытия менеждера событий')
  else 
    if not EventLog.RegisterChangeNotify(OnEventRead) then
      //ShowMessage('ошибка регистрации')
    else
      //ShowMessage('все ок, перехват включен';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// отключаем слежку
if (osRead in EventLog.OpenState) then EventLog.Close(osRead);
end;

В архиве найденный, на просторах интернета (https://rouse.drkb.ru/winapi.php), код, копирайты внутри проекта сохранены, можете попробовать списаться с автором)