-=[CD-ROM]=-

function GetHDDFileSystem(ADisk : char): String;
var
 SerialNum           : dword;
 VolumeName, FSName  : array [0..255] of char;
 MaximumFNameLength,
 FileSystemFlags     : dword;
begin
 Result := '';
 if GetVolumeInformation(PChar(ADisk + ':\'),
                         VolumeName, SizeOf(VolumeName),
                         @SerialNum,
                         MaximumFNameLength,
                         FileSystemFlags,
                         FSName, SizeOf(FSName)) then
  Result := FSName;
end;