Чтобы узнать, в какой файловой системе отформатирован диск, можно создать объект Scripting.FileSystemObject. Ниже приведена готовая функция на Delphi, которая по букве диска (неважно, строчной или прописной) возвращает название файловой системы этого диска:
...
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;
Все мы помним старые добрые раскладные диваны. Но даже в таком простом, казалось бы, механизме прогресс не стоит на месте. Теперь в моде новые диваны еврокнижка, основное отличие которых в том, что при раскладывании их не нужно отодвигать от стенки