-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
      "Определения параметров определенного физического диска"
-----------------------------------------------------------------------
function GetVolumeFlags(Drive: Byte): Integer;
var
  DriveLetter: Char;
  NoMatter   : Integer;
  FileSysFlags: Integer;
begin
  DriveLetter := Char(Drive + $41);
  GetVolumeInformation(PChar(DriveLetter + ':\'), nil, 0, nil,
                       FileSysFlags, NoMatter, nil, 0);
  Result := FileSysFlags;
end;

Параметр FileSysFlags может принимать следующие значения:

- FS_CASE_IS_PRESERVED - (при записи на диск сохраняется регистр букв
 							 в его имени)

- FS_CASE_SENSITIVE - (поддерживается поиск файлов с учетом регистра
								букв)

- FS_UNICODE_STORED_ON_DISK - (поддерживается сохранение имен файлов
							   в UniCode)

- FS_PERSISTENT_ACLS - (поддерживаются списки контроля доступа (ACL).
						     Только для NTFS)

- FS_FILE_COMPRESSION - (поддерживается сжатие файлов на уровне
							     системы)

- FS_VOL_IS_COMPRESSED - (устройство представляет собой сжатый диск)
-----------------------------------------------------------------------