Mennyi memóriát foglal le az alkalmazásunk?

A mellékelt példaprogram megnyitása előtt a ProcessMemory.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.

A komponenshez két property-t készítünk: a Value property-ből tudhatjuk meg a lefoglalt memória terület nagyságát bájtban, míg ugyanezt az értéket a ValueInMB property-ből MB-ban olvashatjuk ki.

A Value property értékét a GetValue függvény szolgáltatja. A lefoglalt memória méretét a GetProcessMemoryInfo függvény adja meg. Itt első paraméterként annak a folyamatnak az azonosítóját kell megadnunk, melynél szeretnénk meghatározni a felhasznált memória terület méretét. Mivel jelen feladatunknál mindig a saját alkalmazásunk ezen adatára vagyunk kíváncsiak, így itt a GetCurrentProcess függvényt használjuk, mely alkalmazásunk folyamatának azonosítóját adja vissza.

Az eredményt a GetProcessMemoryInfo függvény második paraméterében megadott PPROCESS_MEMORY_COUNTERS struktúrában kapjuk. Ezen belül is a WorkingSetSize mező lesz az, mely a kérdéses számot tartalmazza.

function TProcessMemory.GetValue: integer;
var
  pmc: PPROCESS_MEMORY_COUNTERS;
  i: integer;
begin
  result:=0;
  i:=SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, i);
  pmc^.cb:=i;
  if GetProcessMemoryInfo(GetCurrentProcess(), pmc, i) then begin
    result:=pmc^.WorkingSetSize;
  end;
  FreeMem(pmc);
end;

Fontos tudni, hogy a Delphi-ben szerkesztési időben az aktuális folyamat az maga a Delphi. Így a komponensünk szerkesztési időben a Delphi által lefoglalt memóriának méretét adja vissza és csak akkor, amikor futtatjuk a programunkat, akkor kapjuk meg az általa lefoglalt memóriát.