Правила форума
Chdir.PASЯзык:
Русский
English
{ Пример программы для процедуры ChDir }
begin
{$I-} { Отключаем контроль ошибок ввода/вывода }
{ Получаем имя новой директории с командной строки }
ChDir(ParamStr(1));
if IOResult <> 0 then
WriteLn('Не могу сменить директорию.');
end.
{$I-} { Отключаем контроль ошибок ввода/вывода }
{ Получаем имя новой директории с командной строки }
ChDir(ParamStr(1));
if IOResult <> 0 then
WriteLn('Не могу сменить директорию.');
end.
::
::
::
