Hallo an alle!!
Ich hab in Delphi 7 ein Programm erstellt, dass den freien und gesamten Arbeitsspeicher berechnet. Ich möchte den belegten Arbeitsspeicher in Prozent mit einer TGauge anzeigen. Leider krieg ich das nicht hin!
Hat irgendwer eine Idee, wie das gehen könnte?
Hier der Source:
Delphi-Quellcode:
procedure TMain.Button2Click(Sender: TObject);
var MS:TMemoryStatus;
frei, total: int64;
belegt: Integer;
begin
Button2.Caption:='Aktualisieren';
frei:=MS.dwAvailPhys;
total:=MS.dwTotalPhys;
MS.dwLength:=sizeof( MS);
GlobalMemoryStatus( MS);
label5.caption:= 'Gesamt: '+
FormatFloat( '#,###" MB"',MS.dwTotalPhys / 1048576);
label4.caption:= 'Frei: '+
FormatFloat( '#,###" MB"',MS.dwAvailPhys / 1048576);
belegt:=(MS.dwTotalPhys div 1048576)-(MS.dwAvailPhys div 1048576);
label6.Caption:='Belegt: '+IntToStr(belegt)+' MB';
end;