Ich habe diesen Code, den ich glaube ich mal irgendwo im Internet gefunden hatte, mal aus einem meiner Projekte herauskopiert:
Delphi-Quellcode:
function DiskInfo(dir: String; out total, avail: Int64): Boolean;
begin
dir := IncludeTrailingPathDelimiter(ExtractFilePath(dir));
Result := GetDiskFreeSpaceEx(PChar(dir), avail, total, nil);
end;