Freier / gesamter Plattenspeicher

Erklärung
Die Funktion FreeSpace liefert den freien Plattenspeicher, DiskSpace den gsamten Plattenspeicher. Der Clou bei beiden Funktionen ist, dass die Platte bei den Funktionen Diskfree & Disksize als Zahl vorliegen muss, wobei 0 = aktuelles Laufwerk, 1 = Laufwerk A:, 2 = Laufwerk B: usw. ist. Die Konvertierung erfolgtg über Ord(Uppercase(laufwerk)[1])-64;. Die Platte wird als Char übergeben, in Ansi umgewandelt und davon 64 abgezogen. Diese beiden Funktionen können problemlos in ein anderes Programm kopiert werden.

Quelltext
  function FreeSpace(Laufwerk:char):string;
var frei        : double;
    Drive       : integer;

begin
     result := 'Fehler';
     Drive  := Ord(Uppercase(laufwerk)[1])-64;
     frei   := Diskfree(Drive);
     result := format('%0.2n MB',[Frei / 1024 / 1024]);
end;

function DiskSpace(Laufwerk:char):string;
var gesamt        : double;
    Drive       : integer;

begin
     result := 'Fehler';
     Drive  := Ord(Uppercase(laufwerk)[1])-64;
     gesamt := DiskSize(Drive);
     result := format('%0.2n MB',[Gesamt / 1024 / 1024]);
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
     Label1.Caption := FreeSpace(DriveComboBox1.drive);
     Label2.Caption := DiskSpace(DriveComboBox1.drive);
end;