function GetSpaceOnDisk64(const Path: String; var Free, Total: Int64): Boolean;
Позволяет получить размер общего Total и свободного Free
пространства на диске в байтах. Параметр Path определяет
каталог на диске или ресурс в сети (UNC-путь). Это может быть корневой
каталог (например, C:\
), или существующий подкаталог. В
случае успеха возвращает значение True, иначе False.
var Path: String; FreeBytes, TotalBytes: Int64; begin // Получаем объём свободного места в байтах на диске с каталогом "Program Files" Path := ExpandConstant('{autopf}'); if GetSpaceOnDisk64(Path, FreeBytes, TotalBytes) then begin MsgBox('Доступно ' + IntToStr(FreeBytes) + ' байт по пути ' + Path, mbInformation, MB_OK); end else begin // ошибка выполнения функции end; end;