|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
На сайте винды не нашел описание переменной содержащей описание события =(
Есть только различные значения этого события. Как выудить само описание? |
#17
|
||||
|
||||
чтение журнала занимает определенное время, поэтому при создании формы не очень это выглядит. но потоки спасут ситуацию. для EventID нужно применить маску $FFFF, чтобы совпало с просмотром событий. в справке все про это написано.
Пишу программы за еду. __________________ |
#18
|
|||
|
|||
Стесняюсь спрасить, а как эту маску применить?
Код:
Memo1.Lines.Add('Код события: '+IntToStr(Buffer^.EventID($FFFF))); А все-таки, как выудить описание? |
#19
|
||||
|
||||
оператор and
Пишу программы за еду. __________________ |
#20
|
||||
|
||||
описание события:
Код:
PChar(DWORD(Buffer)+Buffer^.StringOffset) Пишу программы за еду. __________________ |
#21
|
|||
|
|||
Нашел другой способ получить необходимые данные:
Код:
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; |
#22
|
||||
|
||||
способ называется через ().()
Пишу программы за еду. __________________ |
#23
|
|||
|
|||
Согласен, зато описание события полное, а не 1 параметр из 3х.
StringOffset выдает лишь с кем произошло событие, а какое сыбытие история умалчивает. Плюс еще лвл события я не нашел нигде =( |
#24
|
||||
|
||||
просто тебе лень почитать Windows Events
Пишу программы за еду. __________________ |
#25
|
|||
|
|||
Дело не в лени =( английский плохо знаю, и в Си не разбираюсь =(
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx Вроде пример какой то есть, но разобраться в нем я не в состоянии =( |