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

    Функция SetCurrentDir устанавливает текущую директорию в Dir, возвращая True в случае успеха.

     Если директория не существует, то для получения кода ошибки можно использовать функцию GetLastError.

begin
   // Show the current directory
   ShowMessage('Current directory = '+GetCurrentDir);

   // Change this value
   SetCurrentDir('C:\Program Files');

   // Show the current directory again
   ShowMessage('Current directory = '+GetCurrentDir);
end;

Current directory = C:\Program Files\Borland\Delphi7\Projects
Current directory = C:\Program Files