III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

1. Основные функции и процедуры для работы с файлами

Функция 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;

[Вернуться к содержанию]