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;