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

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция GetEnv.

  • Объявление:

    Function GetEnv(EnvVar : String) : String;

  • Описание:

    Возвращает значение заданной переменной среды DOS.

  • Замечания:

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

  • Пример:

    { Пример программы для функции GetEnv }
    {M 8192, 0, 0}
    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.



Вернуться к оглавлению справочника