Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Ноя

Как узнать сколько занимает памяти программа?

Posted by Chas under Пост-обзор

Как в программе получить значение, сколько памяти занимает эта программа?

var
  MainHandle: THandle;
  pmc: PROCESS_MEMORY_COUNTERS;
  cb: Integer;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    MainHandle := OpenProcess(PROCESS_QUERY_INFORMATION or       PROCESS_VM_READ, false, GetCurrentProcessID);
    cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
    GetProcessMemoryInfo(MainHandle, @pmc, cb);
    Caption:=IntToStr(pmc.WorkingSetSize);
    CloseHandle(MainHandle);
  end;
end;