Правила форума
GetEnv (функция) (модуль Dos)Язык:
Русский
English
GetEnv (функция) (модуль Dos)
Возвращает значение заданной переменной среды DOS.
Объявление
Function GetEnv(EnvVar : String) : String;
Режим
Real, Protected
Замечания
Функция GetEnv возвращает значение заданной переменной DOS. Имя переменной может быть или в верхнем, или в нижнем регистрах, но не должно содержать знак равенства (символ '='). Если данная переменная среды не существует, то GetEnv возвращает пустую строку.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции 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.
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.
::
::
::
