Использование Оп.памяти программами

[rpy3uH]

NextEntryOffset задаёт разинцу между текущей и следующей информацией о процессе. К адресу текущей информации прибавляем NextEntryOffset получаем адрес информации о следующем процессе.

скачать пример можно отсюда

[soleil@mmc]

продолжим тему
что я делаю не так с вызовом GetProcessMemoryInfo?

var
  procesess: array[0..$FFF] of DWORD;
  i, count, cm: cardinal;
  ph: THandle;
  ModName: array[0..MAX_PATH] of char;
  mh: HMODULE;
  pmc: PPROCESS_MEMORY_COUNTERS;
  List: TStringList;
begin
  if not EnumProcesses(@procesess, SizeOf(procesess), count) then
    Exit
  else
  begin
    List := TStringList.Create;
    for i:=0 to count div 4 - 1 do
    begin
      ph := OpenProcess(SYNCHRONIZE or PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procesess[i]);
      if ph > 0 then
      begin
        EnumProcessModules(ph, @mh, sizeOf(mh), cm);
        GetModuleBaseName(ph, mh, ModName, sizeOf(ModName));
        if GetProcessMemoryInfo(ph, @pmc, sizeOf(pmc)) then
            List.Add(format('%s) %s - %s', [IntToStr(i), string(ModName), IntToStr(round(pmc.WorkingSetSize / 1024 / 1024))]))
        else
          List.Add(format('%s) %s - ', [IntToStr(i), string(ModName)]));
        CloseHandle(ph);
      end;
    end;
  end;
  Memo1.Lines.Clear;
  Memo1.Lines.AddStrings(List);

хочется получить объем занимаемый прогой в памяти (для каждой из имеющейся в списке), но в результате имеем только список без объема

апд
сам же себе и отвечу
вот такая добавочка в код спасла "отца русской демократии"

        cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
        GetMem(pmc, cb);
        pmc^.cb := cb;
        if GetProcessMemoryInfo(ph, pmc, cb) then