Also erst mal Danke für die Antwort. Leide geht das nicht.
Hier der geänderte Source:
Delphi-Quellcode:
procedure TMain.Button2Click(Sender: TObject);
var MS:TMemoryStatus;
frei, total, perc: int64;
belegt: Integer;
begin
Button2.Caption:='Aktualisieren';
total:=MS.dwTotalPhys;
frei:=MS.dwAvailPhys;
perc:=round((total-frei)/total*100);
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);
Gauge2.Progress := perc;
label6.Caption:='Belegt: '+IntToStr(belegt)+' MB';
end;
Kannst du mir sagen, was ich falsch mache
