Функция GetEnv

Модуль Dos

Возвращает значение заданной переменной окружения DOS.

Объявление:

 Function GetEnv(EnvVar : String) : String;

Режим: 

Замечания:
Функция GetEnv возвращает значение заданной переменной DOS. Имя переменной может быть или в верхнем, или в нижнем регистрах, но не должно содержать знак равенства (символ '='). Если данная переменная среды не существует, то GetEnv возвращает пустую строку.

Пример:

 
 Uses Dos;
 
 Var Command : String[79];
 
 Begin
  Write('Введите команду DOS: ');
  ReadLn(Command);
  If Command <> '' Then Command:='/C '+Command;
  SwapVectors;
  Exec(GetEnv('COMSPEC'), Command);
  SwapVectors;
  If DosError <> 0 Then WriteLn('Ошибка при запуске COMMAND.COM');
 End.
 
 

См. также: