Turbo Pascal Documentation

Функция GetEnv

Модуль Dos

      Функция: Возвращает значение заданной переменной опера-
ционной среды.
     Описание: GetEnv(перем_среды : string)
     Примечания: Функция GetEnv возвращает значение заданной
переменной.  Имя переменной может указываться как строчными,
так и прописными буквами, но оно не должно включать  в  себя
знак  равенства  (=).  Если заданная переменная операционной
среды не существует, то  функция  GetEnv  возвращает  пустую
строку.
     Более подробная информация об  операционной  среде  ДОС
содержится в справочных руководствах по ДОС.
     Прочее: См. также функции EnvCount, EnvStr.
     Пример:

  {M 8192,0,0}
  uses Dos;
  var
    Command: string[79];
  begin
    Write('Ввведите команду ДОС: ');
    ReadLn(Command);
    if Command <> '' then
       Command := '/C/ + Command;
    SwapVectors;
    Exec(GetEnv(COMSPEC'), Command);
    SwapVectors;
    if DosError <> 0 then
       Writeln('Нельзя выполнить COMMAND.COM');
  end.