Informationen über Arbeitsspeicher und Auslagerungsdatei |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;