Процедура GetDir в Delphi отримує поточний каталог (диск плюс шлях) для вказаного диска.
System unit
procedure GetDir (Drive : Byte; var Directory : string);
Процедура GetDir зберігає в переданому рядку параметра Directory диск вказаний у параметрі Drive плюс шлях до поточного каталогу.
Значення параметра Drive: 0 = Текущий диск 1 = диск А 2 = диск B 3 = диск C 4 = диск D.
Процедура GetDir: Отримання директорії для диску C:\
var
DirName : string;
begin
GetDir(3, DirName); // Зберігаємо директорію C: у змінній DirName
ShowMessage(DirName);
end;
Результат
Наступний вивід буде обов'язково змінюватись на інших ПК:
C:\Program Files\Borland\Delphi7\Projects
Подібні функції, процедури та команди
ChDir — вибір диска та директорії (папки), в якій проводитиметься робота.
CreateDir — створює директорію.
GetCurrentDir — повертає поточний каталог (диск плюс каталог).
ForceDirectories — створює новий шлях каталогів.
MkDir — створює каталог.
RemoveDir — дозволяє видалити директорію.
RmDir — видалення каталогу.
SelectDirectory — виводить діалогове вікно, за допомогою якого користувач може вибрати директорію.
SetCurrentDir — змінює поточну директорію.