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.

markieren

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:

markieren

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]

Speicherplatz eines Datenträgers ermitteln

Speicherplatz eines Datenträgers ermitteln

Forumregeln