Speicherkontrolle von Laufwerken

[Mirilin]

Label8.Caption := IntToStr(Round(freespace)) + ' % belegt.'; dann sollte es gehen

[RomanK]

Hoi,
mach mal freespace als Integer nicht als Double.
Oder aus dem IntTostr ein FloatToStr, wobei das erste besser ist.
Double gehöt zu den Fließkommatypen, Integer zu den Ganzen-Zahlen. Siehe OH

[Computerbabalulu]

Mh

Meinst du es geht wenn ich Double in Interger ändere?

[Computerbabalulu]

Jo, mach ich.....

[Computerbabalulu]

Alles klar..

Es geht. Danke euch.

Gruß Frank

[Mirilin]

In diesem Beispiel wird ein Formular und eine TLabel-Komponente verwendet. Wenn der folgende Programmcode ausgeführt wird, wird in der TLabel-Komponente eine Meldung angezeigt, die den freien Speicherplatz auf der Festplatte in KB und in Prozent angibt.

Delphi-Quellcode:

var

  S: string;
  AmtFree: Int64;
  Total:   Int64;
begin
  AmtFree := DiskFree(0);
  Total := DiskSize(0);
  S := IntToStr(AmtFree div Total) + 'Prozent von Laufwerk 0 sind frei: ' (AmtFree div 1024) + ' KB frei. ';
  Label1.Caption := S;
end;

(Das Beispiel der Delphihilfe zu DiskFree)

[Computerbabalulu]

Ich lach mich TOT...

Wisst Ihr was ich jetzt angezeigt bekomme??

- 95% belegt !

Das heiß, es stimmt hinten und vorne nicht. Denn die Platte ist zu 44% belegt

[Mirilin]

Delphi-Quellcode:

...
type
  TMemRec = record
    DiskSize : Int64;
    DiskFree : Int64;
    Free     : Byte;
  end;
...
function GetMemRec(const Laufwerk: Char): TMemRec;
var
  Drive : Byte;
begin
  Drive := Ord(Laufwerk)-64;
  Result.DiskSize := DiskSize(Drive);
  Result.DiskFree := DiskFree(Drive);
  Result.Free     := Result.DiskFree * 100 div Result.DiskSize;//wichtig, dass man zuerst mal 100 rechnet, sonst gibts immer 0, zumindest bei mir(ilin)
end;
...
procedure TMainForm.ButtonGetFreeMemClick(Sender: TObject);
var
  t,f,p : String;
  r : TMemRec;
begin
  r := GetMemRec('C');
  t := IntToStr(r.DiskSize div 1073741824); //hoffentlich stimmt die umrechnung in GB ^^
  f := IntToStr(r.DiskFree div 1073741824); //mal angenommen dass es 1024^3 ist :-)
  p := IntToStr(r.Free);
  LabelMemString.Caption := 'Frei : ' +f+' GB | Total : '+ t +' GB | = '+p+'%';
end;

Mal kurz was probiert, bei mir(ilin) stimmts. Hoffe, es hilft Dir in irgendeinerweise...

[Computerbabalulu]

WoW

Ich versuch es gleich einmal

Sage dir noch bescheid...

[Computerbabalulu]

Glückwunsch! Es Funktioniert auch bei mir.

Danke



Ich war schon fast am Verzweifeln. Bin jetzt mal kurz im Hintergrung und versuche mal zu verstehen was du da gemacht hast

Will ja auch was lernen, und nicht nur abschreiben.

@all

Ihr seid Echt Super Hilfsbereit!!



Frank