Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Прочитать содержимое папки
Категория: Файловая система
Категория: Файловая система
Получить список запущенных приложений
Категория: Приложение
Категория: Приложение
Округление времени до 5 мин
Категория: Базы данных
Категория: Базы данных
Число строкой с предстоящими нулями
Категория: Текст и строки
Категория: Текст и строки
Форма всегда наверху
Категория: Компоненты
Категория: Компоненты
Компонент HotKey
Категория: Компоненты
Категория: Компоненты
Проверить существование определённого URL
Категория: Базы данных
Категория: Базы данных
Создание ярлыка на Рабочем столе
Категория: Приложение
Категория: Приложение
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Удалить пробелы в начале и конце
Категория: Текст и строки
Категория: Текст и строки
Delphi - Справочник: DiskFree
DiskFree
|
function DiskFree ( Drive : Byte ) : Int64; |
Функция (Unit SysUtils)
|
Выдает число свободных байтов на указанном диске
|
Описание:
|
Функция DiskFree выдает количество свободного пространства на Диске (Drive). Если диск недопустим, или не содержит носителя, возвращается -1. Если диск только для чтения, возвращается 0. Диск определяется следующим образом: 1 = Диск A 2 = Диск B 3 = Диск C ... |
Пример кода: Показ свободного места на дисках от B до F
|
var i : Integer; space : Int64; begin // Показ свободного места на дисках B, C, D, E, F, где существует for i := 2 to 6 do begin space := DiskFree(i); if space >= 0 then ShowMessage('Свободное место на диске = '+Chr(i+64)+ FloatToStrF(space, ffNumber, 20, 0)) else ShowMessage(Chr(i+64)+' Диск не существует'); end; end;
Результат:
|
B Диск не существует Свободное место на диске C = 8,414,223,678 Свободное место на диске D = 4,127,004,529 Свободное место на диске E = 0 Свободное место на диске F = 0 |