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