chdir.pas

  {Chdir.PAS}                                                                
 
  { Пример программы для процедуры ChDir } 
 
  Begin
   {$I-} { Отключаем контроль ошибок ввода/вывода }
   { Получаем имя создаваемой директории с командной строки }
   ChDir(ParamStr(1));
   If IOResult<>0 Then WriteLn('Не могу создать директорию.');
  End.