RAM Auslastung ermitteln

[Matze]

So kann man sich die aktuelle RAM AUslastung in einer Progressbar anzeigen lassen:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  x, y : real; 
  memory: TMemoryStatus; 
  Auslastung: integer; 
begin 
  memory.dwLength := SizeOf(memory); 
  GlobalMemoryStatus(memory); 
  x := memory.dwTotalPhys - memory.dwAvailPhys; 
  y := memory.dwTotalPhys; 
  Auslastung := round(((x/y)*100)); 
  ProgressBar1.Position := Auslastung; 
end;

Edit: Ich wurde von APP darauf hingewiesen, dass es TMemoryStatus erst ab D6 gibt.