16.1. Опрос и установка параметров MS-DOS

Команды опроса и установки параметров реализованы процедурами и функциями, приведенными в табл. 16.1.

Процедуры и функции

Дейстувие

DOSVersion : Word

Возвращает закодированный номер текущей версии MS-DOS

GetCBreak(VAR B: Boolean)

SetCBreak(B: Boolean)

Считывает значение параметра BREAK

Устанавливает значение BREAK

GetVerify(VAR V : Boolean)

SetVerify(V : Boolean)

Считывает значение параметра VERIFY

Устанавливает значение VERIFY

EnvCount : Integer

EnvString( N : Integer): String

GetEnv(E : String) : String

Возвращает число системных переменных MS-DOS

Возвращает полную строку задания переменной MS-DOS номер N

Возвращает значение системной переменной Е

Все эти функции несложны в употреблении, кроме, быть может, DOSVersion, которая возвращает закодированный номер версии. Чтобы извлечь из нее привычную форму нумерации, можно воспользоваться функцией, предлагаемой на рис. 16.1.

| USES DOS;

| FUNCTION XDOSVersion : String;

| VAR

|   V : Real;

|   S : String;

| BEGIN

|   V := Lo(DosVersion) + Hi(DosVersion) / 100;

|   Str(V:4:2, S);

|   XDOSVersion := S

| END;

- 347 -