GetLogicalDrives: IStringList;
Метод GetLogicalDrives возвращает список логических дисков на текущем компьютере.
Sub UserProc;
Var
Drives: IStringList;
DriveName: String;
Begin
Drives := Directory.GetLogicalDrives;
For Each DriveName In Drives Do
Debug.WriteLine(DriveName);
End For;
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведен список всех логических дисков, имеющихся на текущем компьютере.
См.также: