Страница 1 из 2

Теперь об информации о дисках:

исчерпывающую информацию по этому поводу дает функция GetVolumeInformation,

посмотри help, там все понятно (там и серийный номер диска, и тип файловой системы, и прочее и прочее).

Вот параметры 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 - (устройство представляет собой сжатый диск)

Определение типа диска:

Code:

function GetDriveType (Drive : byte) : string;

var

DriveLetter : Char;

DriveType : uInt;

begin

DriveLetter := Char (Drive + $41);

DriveType := GetDriveType (PChar(DriveLetter + ':\'));

case DriveType of

0: Result := '?';

1: Result := 'Path does not exists';

Drive_Removable: Result := 'Removable';

Drive_Fixed: Result := 'Fixed';

Drive_Remote: Result := 'Remote';

Drive_CDROM: Result := 'CD-ROM';

Drive_RamDisk: Result := 'RAMDisk'

else Result := 'Unknown';

end;

Новые статьи