110

C.2. Описание модуля UniDOS

*

Directory=

$10;

поддиректория;

*

Archive =

$20;

архивирован ли файл;

*

AnyFile =

$3f;

маска для обнаружения какого либо файла.

Экспортируются и следующие типы, необходимые некоторым процедурам и

функциям:

type PathStr = string[79];

 ComStr = string[127];

 DirStr = string[67];

 NameStr = string[12];

 ExtStr = string[4];

 SearchRec = packed record

 Name:

packed array [1..11] of char;

 Attr:

byte;

 tmp:

packed array [1..10] of byte;

 Time:

longint;

 StClust: word;

 FLen:

longint;

 Buff:

packed array [1..$19] of byte;

 end { SearchRec };

 DateTime = record

 Year, Month, Day,

 Hour, Min, Sec: word;

 end { DateTime };

После каждого выполнения процедуры или функции необходимо проверять при

помощи функции DOSerr произошли ли ошибки ввода/вывода (коды ошибок даны в

Приложении E.3).

procedure ChDir(const s: string);

Действие: Устанавливает новую текущую поддиректорию.

function DiskFree(drv: byte): longint;

Действие: В качестве результата возвращает число свободных байтов носителя,

находящегося в устройстве с номером, определяемым параметром. Номера

устройств следующие: 0 - текущее устройство; 1- устройство A:, 2 - B: и т.д.

function DosErr: word;

Действие: В качестве результата возвращает код ошибки последней использованной

процедуры или функции из этого модуля.

function DosVers: word;

Действие: В качестве результата возвращает версию операционной системы. Старший

байт содержит главная (major) версия, а младший - подверсию (minor).

procedure Erase(const s: string);

Действие: Уничтожает файл, чье имя задано параметром. Эта процедура возвращает код

ошибки через IOresult, а не через DOSerr.

Ограничение: Файл должен быть закрытым в этот момент.

procedure ErrText(var s: ComStr);

Действие: Возвращает в s текст ошибки последней использованной процедуры или

функции из этого модуля. Код ошибки должен быть меньше 128 (т.е. ошибка