Freien Speicher auf dem aktuellen Datenträger ermitteln

[Hawkeye219]

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

[pacman1986]

Ich hab das jetzt für die codelib vorgeschlagen diese frage taucht öfters auf ^^