Пример кода : Получение и установка каталога в диск C:
var
directory : string;
begin // Получение каталога для диска
C
GetDir(2, directory);
ShowMessage('Каталог диска C, по умолчанию = '+directory); // Установка каталога C в это
значение ChDir(directory);
GetDir(2, directory);
ShowMessage('Каталог диска C, по умолчанию = '+directory); // Попытка установить в недопустимое
значение ChDir('C:Bad/Path/Value');
GetDir(2, directory);
ShowMessage('Каталог диска C, по умолчанию = '+directory);
end;