Delphi-Quellcode:
procedure ShowMeTheSpace(c: String);
var
Total, Free, dummy: int64;
Genutzt:integer;
Gesammt:integer;
Frei:integer;
AProzent:int64;
begin
if GetDiskFreeSpaceEx(PChar('.\'),dummy,Total,@Free) then
begin
form1.Label1.Caption:=(Format(' Frei:%.1fGB / Ges.:%.1fGB', [Free / 1024 / 1024 / 1024, Total / 1024 / 1024 / 1024]));
Genutzt:=(Total div 1024 div 1024 div 1024) - (Free div 1024 div 1024 div 1024);
Gesammt:=(Total div 1024 div 1024 div 1024);
Frei:=(Free div 1024 div 1024 div 1024);
AProzent:=Genutzt div Gesammt * 100;
form1.Label1.Caption:=FloatToStr(AProzent);
//Prozent:=Prozent div 100 * 134;
//form1.diskusage.Width:= AProzent;
end;
end;
Guten morgen zusammen... in der obenstehenden Funktion wird der Maximale Speicher eines Datenträgers errechnet... dazu auch noch der Freie Platz...
ich hab mir jetzt dazugebaut dass er mir auch sagt wie viel benutzt wird an platz... soweit funktioniert es auch... aber an folgender Stelle bekomme ich keine ausgabe mehr:
form1.Label1.Caption:=FloatToStr(AProzent);
gebe ich stattdessen alle anderen variablen an wie zB. Total, Free, Gesammt,etc dann werden mir alle werte angezeigt...
wer kann helfen?!
ich danke im voraus für jede antwort
