GetDirectoryRoot(Path: String): String;
Path - путь, соответствующий директории, корневой каталог которой необходимо получить.
Метод GetDirectoryRoot возвращает путь корневого каталога директории, передаваемой посредством параметра Path.
Path может содержать сведения об абсолютном или относительном пути. Если каталог, указанный в Path, не существует, то генерируется исключительная ситуация.
Sub UserProc;
Var
Root: String;
Begin
Root := Directory.GetDirectoryRoot(Directory.GetCurrentDirectory);
Debug.WriteLine(Root);
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведен путь корневого каталога рабочей директории текущего приложения.
См.также: