Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:13 PM
Начало » Статьи » Работа с файлами

Функция DiskSize
Функция DiskSize( Drive: Byte ): Int64;

--------------------------------------------------------------------------------

Модуль: SysUtils

Описание
Функция возвращает размер диска Drive в байтах.
Диск определяется следующим образом:

0 - текущий,
1 - 'A',
2 - 'B',
3 - 'С'
и т.д.

Если указанный диск не существует, или недоступен, то функция возвращает -1.

Пример
var
X: Integer;
begin
...
X:= DiskSize(0);
MessageDlg('Размер текущего диска: '+ IntToStr(Х)+' байт', mtInformation, [mbOk], 0)
...
end;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 879 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: