1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function MEM(hProc:cardinal; OUT PeakRAM:integer):integer;
var
  pmc : PPROCESS_MEMORY_COUNTERS;
  cb  : Integer;
  wert: cardinal;
begin
  cb:= SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb);
  pmc^.cb:= cb;
  (*Statt den ProzessHandle von irgendeinem Programm zu nehmen,
    GetCurrentProcess einsetzen - gilt dann nur für den eigenen Prozess!*)
  if GetProcessMemoryInfo(hProc, pmc, cb) then  begin
//Virtueller Speicher wert := pmc^.PagefileUsage div 1024 ;
//Seitenfehler wert := pmc^.PageFaultCount;
//max RAM wert := pmc^.PeakWorkingSetSize div 1024 ;
//aktueller RAM
   wert   := pmc^.WorkingSetSize div 1024;
   PeakRAM:= pmc^.PeakWorkingSetSize div 1024 ;
   result:= wert;
  end
  else
   result:= 0;
  FreeMem(pmc);
end;					

1:
2:
3:
4:

                                                               //ProzessID
     HPROC    := OpenProcess(PROCESS_QUERY_INFORMATION, false, PROCS.th32ProcessID);
     PeakRAM  := 0;
     ProcMem  := MEM(hProc, PeakRAM);