getenv.pas

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