Блог

У Process Hacker есть диспетчер процессов на C.

Когда вы дважды щелкаете в диспетчере процессов на процессе, например, Explorer
, вы видите много информации, в том числе:
Темы, связанные с процессом. PDD, Дельта-запуск циклов, адрес, приоритет.

Ну, я пытался сделать что-то подобное в Delphi, но я получаю только TID и приоритет …
Я не могу указать начальный адрес info следующим образом: «msiltcfg.dll 0x258!» или может возвращать только 00630EFA.

(Оригинальное) приложение Process Hacker показывает информацию на изображении ниже:

Как мне это решить? на основе приведенного ниже примера кода.

 procedure TForm1.Button7Click (Sender: TObject);
var
  tbi: THREAD_BASIC_INFORMATION;
  hThreadSnap, Process, hThread, ThreadInfo: THandle;
  te32: tagTHREADENTRY32;
  me32: MODULEENTRY32;
  th32: THREADENTRY32;
  dwPID: DWORD;

  startaddr: Pointer;
  Status: LongInt;
  Error: DWORD;
  modname: String;
  hToken: DWORD;
  TKP: TOKEN_PRIVILEGES;
  otkp: TOKEN_PRIVILEGES;
  dwLen: dword;


begin
  hThreadSnap: = CreateToolhelp32Snapshot (TH32CS_SNAPTHREAD, 0);
  if hThreadSnap = INVALID_HANDLE_VALUE then 
   Exit;
  try
    dwPID: = GetProcessID (Trim (Edit1.Text));

    te32.dwSize: = SizeOf (THREADENTRY32);

    me32.dwSize: = SizeOf (MODULEENTRY32);

    ListBox1.Items.Clear;
    ListBox2.Items.Clear;

    if not Thread32First (hThreadSnap, te32) then
      Exit;

    repeat
      if te32.th32OwnerProcessID = dwPID then 
      begin
        hThread: = OpenThread (THREAD_ALL_ACCESS,
        False, te32.th32ThreadID);
        status: = ZwQueryInformationThread (hThread,
        9, 
        ThreadQuerySetWin32StartAddress {}
        @Startaddr,
        SizeOf (startaddr)
        @ DwLen);

        listbox1.Items.AddObject (Format ('StartAddress:% p'
        [Startaddr])   'ID:'   IntToStr(te32.th32ThreadID), TObject (hThread));

        if hThread <> 0 then
          CloseHandle (hThread);
      end;
    Until not Thread32Next (hThreadSnap, te32);
  finally
    CloseHandle (hThreadSnap);
  end;
end;
  

Взгляните на наш класс ведения журнала в модуле SynCommons.pas с открытым исходным кодом: вы можете отслеживать стек любого метода в файле журнала. Если .map (или его сжатый эквивалент .mab) доступен, будет отображен номер строки.

Я работаю над средством просмотра журналов, способным добавлять строки исходного кода во время просмотра из файла save .map /.mab.

Теперь это используется классами модульного тестирования, так что любой сбой создаст запись в журнале с исходной строкой и трассировкой стека:

C:DevlibSQLite3exeTestSQL3.exe 0.0.0.0 (2011-04-13) Хост = Пользователь ноутбука = Мое имя CPU = 2 * 0-15-1027 OS = 2.3= 5.1.2600 Wow64 = 0 Freq = 3579545 TSynLogTest 1.13 2011-04-13 05:40:25

20110413 05402559 сбой TTestLowLevelCommon(00B31D70) Общий низкоуровневый: TDynArray «» трассировка стека 0002FE0B SynCommons.TDynArray.Инициализация (15148) 00036736 общего доступа.Test64K (18206) 0003682F Общий доступ.TTestLowLevelCommon._TDynArray (18214) 000E9C94 TestSQL3 (163)

Разница между тестовым набором без ведения журнала (TSynTests) и тестовым набором с ведением журнала (TSynTestsLogged) заключается только в этом:

 procedure TSynTestsLogged.Failed(const msg: string; aTest: TSynTestCase);
begin
  inherited;
  with TestCase[fCurrentMethod] do begin
    fLogFile.Log(sllFail,'%: % "%"',
      [Ident,TestName[fCurrentMethodIndex],msg],aTest);
  end; {with}
end;
  

Здесь используется sllFail уровень, но вы можете использовать любой доступный уровень.