Home » Tipps & Tricks » System » Hardware » Informationen über Arbeitsspeicher und Auslagerungsdatei

Informationen über Arbeitsspeicher und Auslagerungsdatei

Mithilfe der Procedure GlobalMemoryStatus erlangt man Informationen über den installierten Arbeitsspeicher und die Auslagerungsdatei. Der Aufruf gestaltet sich wie folgt:

procedure TForm1.Button1Click(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
  Memory.dwLength := SizeOf(Memory);
  GlobalMemoryStatus(Memory);

  //Arbeitsspeicher
  Label1.Caption:=IntToStr(Memory.dwTotalPhys div 1024);
  //Freier Arbeitsspeicher
  Label2.Caption:=IntToStr(Memory.dwAvailPhys div 1024);
  //Größte Größe der Auslagerungsdatei
  Label3.Caption:=IntToStr(Memory.dwTotalPageFile div 1024);
  //Freier Platz der Auslagerungsdatei
  Label4.Caption:=IntToStr(Memory.dwAvailPageFile div 1024);
end;