Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Число четное или нечетное
   Категория: Математика
  Подсчет времени какого-либо события
   Категория: Математика
  Удалить свой же exe-шник
   Категория: Приложение
  Как показать balloon tooltips в программе
   Категория: Приложение
  Поиск по EasyTable
   Категория: Базы данных
  Компонент PopupMenu
   Категория: Компоненты
  Удалить лишние символы из строки
   Категория: Текст и строки
  Сохранить документ Word как RTF на DELPHI
   Категория: Файловая система

Delphi - Справочник: DiskSize

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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

  << Вернуться