Delphi-Code at gokiburi.de

DiskFree


Inhalt: DiskFree zeigt den freien und gesamten Speicherplatz einer Festplatte oder Partition. Zudem stellt es den Grad der Belegung in einem Fortschrittsbalken dar.

Nutzung: Wählen Sie einfach aus dem Auswahlmenü den gewünschten Laufwerksbuchstaben.

Version: 1.0.0.2

Größe: 488 KByte

Letzte Änderung: 7. September 2010

Download: DiskFree.exe

47 Mal heruntergeladen




Funktion: Das Programm besteht im Wesentlichen aus einer Prozedur, die auf Änderungen im Auswahlmenü reagiert.
procedure TForm1.dcDriveChange(Sender: TObject);
var s : string[255];
  frei, gesamt : double;
begin
  s := UpperCase(dcDrive.Drive);
  frei := DiskFree(Ord(s[1])-64);
  gesamt := DiskSize(Ord(s[1])-64);
  Label1.Caption :=Format('Frei   : %15.0n',[frei]);
  Label2.Caption := Format('Gesamt : %15.0n',[gesamt]);
  Gauge1.Progress := Round((gesamt-frei)/gesamt*100);
end;