память, которую занимает программа

[Juffin]

Как в программе получить значение, сколько памяти занимает эта программа?
Я имею в виду не место на диске, а ту память, которая отображается в диспетчере задач.

PS перечитал еще раз вопрос , надеюсь, вы поймете

[TwiX]

procedure TForm1.Button1Click(Sender: TObject);
var
  MainHandle: THandle;
  pmc: PPROCESS_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);
   GetMem(pmc, cb);
   pmc^.cb := cb;
   GetProcessMemoryInfo(MainHandle, pmc, cb);

   CloseHandle(MainHandle);
  end;
end;

В pmc^.WorkingSetSize должен оказаться нужный размер)

P.s. нужно добавить uses Psapi;

[Stilet]

Ай-яй-яй... Память оккупировал GetMem(pmc, cb);, а освобождать?
Не люблю с указателями работать потому поправлю твой код понадежнее

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;