Чтобы узнать, в какой файловой системе отформатирован диск, можно создать объект Scripting.FileSystemObject. Ниже приведена готовая функция на Delphi, которая по букве диска (неважно, строчной или прописной) возвращает название файловой системы этого диска:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
... uses ComObj; ... function GetFileSystem(ADriveLetter: Char): String; var fso, drv: OleVariant; begin //создаем объект 'Scripting.FileSystemObject' fso := CreateOleObject('Scripting.FileSystemObject'); //получаем информацию о диске drv := fso.GetDrive(fso.GetDriveName(ADriveLetter + ':')); //возвращаем название файловой системы Result := drv.FileSystem; end; |