Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Число четное или нечетное
Категория: Математика
Категория: Математика
Подсчет времени какого-либо события
Категория: Математика
Категория: Математика
Добавление текстовой информации в .ехе-файл и чтение ее
Категория: Файловая система
Категория: Файловая система
Получить первую и последнюю видимую строку в TRichEdit
Категория: Текст и строки
Категория: Текст и строки
Удалить свой же exe-шник
Категория: Приложение
Категория: Приложение
Как показать balloon tooltips в программе
Категория: Приложение
Категория: Приложение
Поиск по EasyTable
Категория: Базы данных
Категория: Базы данных
Компонент PopupMenu
Категория: Компоненты
Категория: Компоненты
Удалить лишние символы из строки
Категория: Текст и строки
Категория: Текст и строки
Сохранить документ Word как RTF на DELPHI
Категория: Файловая система
Категория: Файловая система
Delphi - Справочник: DiskSize
DiskSize
|
function DiskSize ( Drive : Byte ) : Int64; |
Функция (Unit SysUtils)
|
Выдает размер указанного диска в байтах
|
Описание:
|
Функция DiskSize выдает размер указанного диска (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 := DiskSize(i); if space >= 0 then ShowMessage('Размер диска = '+Chr(i+64)+ FloatToStrF(space, ffNumber, 20, 0)) else ShowMessage(Chr(i+64)+' Диск не существует'); end; end;
Результат:
|
B Диск не существует Размер диска C = 11,997,143,040 Размер диска D = 7,995,756,544 Размер диска E = 686,587,904 Размер диска F = 591,429,632 |