Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
4. Mär 2009
habs eben grade mal ausprobiert nochmal... funktioniert immernoch nicht richtig... bei meiner festplatte 200Gb scheint es zu funktionieren...
bei einem datenträger mit 8Gb gibt er mir immer nur für AProzent = 6.
ich habs jetzt mit einer statusbar gemacht... breite kann ich ja angeben wie ich will, maxvalue=Gesammt, position=genutzt, das ganze dann smooth und in rot... dahinter ne grüne...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
4. Mär 2009
ich habe mir jetzt extra die formel zur prozentrechnung besorgt^^
W = Prozentwert -> Breite des Image nach der Berechnung
G = Grundwert -> gewünschte maximale Breite des Images -> 229px (hab umgebaut^^)
p = Prozentsatz -> Prozentwert der den bereits verbrauchten Speicher angibt
100 = 100% -> ja 100% halt...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
4. Mär 2009
Also... ich habe ein Label und ein image übereinander... das image ist ein "laufbalken, der mittels kleiner grafik in rot anzeigt wie viel speicher BENUTZT ist... das image ist 2px breit.
das label ist 134px breit und breiter darf auch das darunterliegende image nicht werden...
in der variable "Gesammt" steht die komplette des datenträgers...
in genutzt steht logischerweise der platz der...
Forum: Object-Pascal / Delphi-Language
Delphi
by Flodding,
4. Mär 2009
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