Delphi kennt übrigens noch eine weitere Möglichkeit, die Gesamtgröße eines Laufwerks und den verfügbaren freien Speicherplatz zu ermitteln:
Delphi-Quellcode:
procedure ShowDiskInfo (aDrive: Char);
var TotalSize, FreeSize : Int64;
begin
TotalSize := DiskSize(Ord(aDrive) - 64);
FreeSize := DiskFree(Ord(aDrive) - 64);
ShowMessage (Format('Total=%.0n, Free=%.0n', [1.0 * TotalSize, 1.0 * FreeSize]));
end;
Gruß Hawkeye