[VKoonts]

На сайте винды не нашел описание переменной содержащей описание события =(
Есть только различные значения этого события.
Как выудить само описание?

[NumLock]

чтение журнала занимает определенное время, поэтому при создании формы не очень это выглядит. но потоки спасут ситуацию. для EventID нужно применить маску $FFFF, чтобы совпало с просмотром событий. в справке все про это написано.

[VKoonts]

Стесняюсь спрасить, а как эту маску применить?

Код:

Memo1.Lines.Add('Код события: '+IntToStr(Buffer^.EventID($FFFF)));

А все-таки, как выудить описание?

[NumLock]

оператор and

[NumLock]

описание события:

Код:

PChar(DWORD(Buffer)+Buffer^.StringOffset)

[VKoonts]

Нашел другой способ получить необходимые данные:

Код:

procedure RunDosInMemo( DosApp, dd:String;AMemo:TMemo);
 const
    ReadBuffer = 2400;
 var
  Security            : TSecurityAttributes;
  ReadPipe,WritePipe  : THandle;
  start               : TStartUpInfo;
  ProcessInfo         : TProcessInformation;
  Buffer              : PAnsichar;
  BytesRead           : DWord;
  Apprunning          : DWord;
  Fil                : string;
 begin
  With Security do begin
   nlength              := SizeOf(TSecurityAttributes);
   binherithandle       := true;
   lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe,
                 @Security, 0) then begin
   Buffer  := AllocMem(ReadBuffer + 1);
   FillChar(Start,Sizeof(Start),#0);
   start.cb          := SizeOf(start);
   start.hStdOutput  := WritePipe;
   start.hStdInput   := ReadPipe;
   start.dwFlags     := STARTF_USESTDHANDLES +
                        STARTF_USESHOWWINDOW;
   start.wShowWindow := SW_HIDE;
      Fil := DosApp;
      Fil := Fil + dd;
   if CreateProcess(nil,
          PChar(Fil),
          @Security,
          @Security,
          true,
          NORMAL_PRIORITY_CLASS,
          nil,
          nil,
          start,
          ProcessInfo)
   then
   begin
    repeat
     Apprunning := WaitForSingleObject
                  (ProcessInfo.hProcess,100);

    until (Apprunning <> WAIT_TIMEOUT);
     Repeat
       BytesRead := 0;
       ReadFile(ReadPipe,Buffer[0],
               ReadBuffer,BytesRead,nil);
       Buffer[BytesRead]:= #0;
       AMemo.Text := AMemo.text + String(Buffer);
     until (BytesRead < ReadBuffer);
  end;
  FreeMem(Buffer);
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
  CloseHandle(ReadPipe);
  CloseHandle(WritePipe);
  end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
onepart,twopart: string;

begin
  Memo1.Clear;
  onepart:= Copy(Edit1.Text,1,1);
  twopart:= Copy(Edit1.Text,2,Length(Edit1.Text)-1);
  RunDosInMemo(onepart,twopart,Memo1);
end;

[NumLock]

способ называется через ().()

[VKoonts]

Согласен, зато описание события полное, а не 1 параметр из 3х.
StringOffset выдает лишь с кем произошло событие, а какое сыбытие история умалчивает. Плюс еще лвл события я не нашел нигде =(

[NumLock]

просто тебе лень почитать Windows Events

[VKoonts]

Дело не в лени =( английский плохо знаю, и в Си не разбираюсь =(
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
Вроде пример какой то есть, но разобраться в нем я не в состоянии =(