SysUtils.DiskFree(Drive:byte) gibt ein Laufwerk den freien Speicherplatz zurück, aber nur unter Windows.
Damit es überhaupt mit anderen
OS funktioniert, prüfe ich zuerst ob ein Verzeichnis existiert, ermittele dann für dieses Verzeichnis die Laufwerks-ID und frage dann den freien Speicherplatz mit SysUtils.DiskFree ab:
Delphi-Quellcode:
if (DirectoryExists(path,true)) then
begin
aDiskDrive := uppercase(StringReplace(ExtractFileDrive(path), ':', '', []));
if (length(aDiskDrive) = 1) then
Result:=DiskFree(ord(aDiskDrive[low(aDiskDrive)])-$40)
else
Result:=0;
end;
Ich suche also eine Funktion um für ein Verzeichnis zu ermitteln, wie viel Speicherplatz noch auf der genutzten Partition frei ist.