Как узнать тип файловой системы диска?

Чтобы узнать, в какой файловой системе отформатирован диск, можно создать объект 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;