Правила форума
Getenv.PASЯзык:
Русский
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.
::
::
::
