-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                 "Определение файловой системы диска"
-----------------------------------------------------------------------
function GetFileSysName(Drive: Byte): String;
var
  DriveLetter: Char;
  NoMatter   : Integer;
  FileSysName: Array [0..MAX_PATH] of Char;
begin
  DriveLetter := Char(Drive + $41);
  GetVolumeInformation(PChar(DriveLetter + ':\'), Nil,
                       0, Nil, NoMatter, NoMatter, FileSysName,
                       SizeOf(FileSysName));
  Result := FileSysName;
end;
-----------------------------------------------------------------------