Клуб программистов

    Delphi процедура ChDir выполняет переход в указанный диск и папку, в которой будет производиться работа.

    В данной процедуре необходимо указывать полный адрес папки.

    Если искомой директории не существует, то происходит ошибка - ElnOutError. И директория остаётся неизменённой.

var
   directory : string;

begin
   // Get the directory for the C drive
   GetDir(2, directory);
   ShowMessage('Default C drive directory = '+directory);

   // Set the C directory to this value
   ChDir(directory);
   GetDir(2, directory);
   ShowMessage('Default C drive directory = '+directory);

   // Try to set to an invalid value
   ChDir('C:Bad/Path/Value');
   GetDir(2, directory);
   ShowMessage('Default C drive directory = '+directory);
end;

The following output is representative, and will necessarily vary from PC to PC:

   C:\Program Files\Borland\Delphi7\Projects
   C:\Program Files\Borland\Delphi7\Projects

   ElnOutError with error 'Invalid file name'