HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
16 января. В 1969 году (50 лет назад) - Первая стыковка на околоземной орбите двух пилотируемых космических кораблей "Союз-4" с космонавтами Б.В. Волыновым, Е.В. Хруновым и А.С. Елисеевым и "Союз-5" с космонавтом В.А. Шаталовым. Первый переход космонавтов из одного космического корабля в другой через открытый космос (Е.В. Хрунов и А.С. Елисеев переходят из "Союз-5" в "Союз-4"). В течение 4 часов два космических корабля совершают полет как один объект, образуя первую экспериментальную космическую станцию.
 
 

Turbo Pascal Documentation

Процедура DiskSize

Модуль Dos


     Функция: Возвращает число свободных байтов на  заданном
диске.
     Описание: DiskSizе(диск: word)
     Тип результата: Длинный целый (longint).
     Примечания: Значение параметра "диск", равное 0, задает
определенный по умолчанию диск, значение 1 указывает на диск
А, 2 - на диск В и т.д. Если номер диска недействителен,  то
данная процедура возвращает значение -1.
     Прочее: См. также процедуры DiskFree, GetDir.
     Пример:

uses Dos;
  begin
    Writeln(DiskSize(0) div 1024,' килобайт свободно');
  end.




HOME