Виртуальная память процесса, функция VirtualQueryEx Опции

[Magdalina]

Добрый день! У меня такой вопрос: как вывести в ListView карту виртуальной памяти выбранного процесса. Там должно быть 4 колонки: База, Статус, Размер, Атрибут защиты. Процесс можно выбрать из ListBox. Вот функция выводящая список процессов.

Код

procedure TForm1.Button2Click(Sender: TObject);
  var
Nomp,a  : Integer;
SH           : Thandle;
Num, I     : Integer;
PPE         : TProcessEntry32;
Pr_names : array [0..50] of string;
begin
  Num := 0;
  SH := CreateToolHelp32SnapShot(Th32cs_SnapAll, 0);
  PPE.dwSize := sizeof (ProcessEntry32);
  Process32First(SH, PPE);
  Pr_Names [Num] := PPE.szExeFile;
    while Process32Next(SH, PPE) do begin
    Num := Num + 1;
  Pr_Names [Num] := PPE.szExeFile;
  Pr_num  [Num] := PPE.th32ProcessID;
end;
  Listbox2.Clear;
  for I := 0 to Num do Listbox2.Items.Add(Pr_Names[I]);
  CloseHandle(SH)
end;

М

Magdalina, чтобы не дублировать темы, что есть нарушение Правил (ссылка вверху страницы), рекомендую тебе зарегистрироваться - тогда ты получишь возможность исправлять свои посты. Успехов! Lapp