Speicherplatz eines Datenträgers ermitteln

[Matze]

marabu zeigt mit folgendem Code eine Möglichkeit, den freien Speicherplatz beliebiger Datenträger wie der Festplatte oder CD-/DVD-Laufwerken zu ermitteln.

Delphi-Quellcode:

function DiskInfo(dir: String; var total, avail: Int64): Boolean;
begin
  dir := IncludeTrailingPathDelimiter(ExtractFilePath(dir));
  Result := GetDiskFreeSpaceEx(PChar(dir), avail, total, nil);
end;

Ein möglicher Aufruf:

Delphi-Quellcode:

var
  TotalSpace, AvailSpace: Int64;
begin
  DiskInfo('D:\', TotalSpace, AvailSpace);

  ShowMessage(Format(
  'Gesamt: %.0n Bytes, Frei: %.0n Bytes',
  [1.0 * TotalSpace,
   1.0 * AvailSpace]));
end;

[edit=fkerber]Fehler in Aufruf korrigiert - Danke an phlux. Mfg, fkerber[/edit]