Определить тип дискового накопителя

Delphi , Файловая система , Диски

Нужно воспользоваться API функцией GetDriveType():

procedure TForm1.Button1Click(Sender: TObject);
begin
  case GetDriveType('C:\') of
    0: ShowMessage('The drive type cannot be determined');
    1: ShowMessage('The root directory does not exist');
    DRIVE_REMOVABLE: ShowMessage('The disk can be removed');
    DRIVE_FIXED: ShowMessage('The disk cannot be removed');
    DRIVE_REMOTE: ShowMessage('The drive is remote (network) drive');
    DRIVE_CDROM: ShowMessage('The drive is a CD-ROM drive');
    DRIVE_RAMDISK: ShowMessage('The drive is a RAM disk');
  end;
end;

Переведенный текст:

Код, предоставленный в Delphi, использует функцию GetDriveType API для определения типа диска. Функция возвращает целочисленное значение, представляющее тип диска.

Вот разбивка каждого случая:

• 0: Тип диска не может быть определен.
• 1: Корневой каталог не существует (обычно происходит при попытке доступа к несуществующему или недопустимому диску).
• DRIVE_REMOVABLE: Удаляемый диск,such as a floppy disk, CDROM or USB flash drive.
• DRIVE_FIXED: Фиксированный диск, such as a hard drive.
• DRIVE_REMOTE: Дальний диск (сетевой) диск.
• DRIVE_CDROM: Диск CD-ROM.
• DRIVE_RAMDISK: RAM-диск.

В процедуре Button1Click, когда кнопка нажата, она вызывает функцию GetDriveType с аргументом 'C:\" и отображает сообщение с соответствующим типом диска.

Замечание: Вывод будет зависеть от того, представляет ли путь 'C:\" удаляемый или фиксированный диск. Если запустить этот код на компьютере без флоппи-диска (которые становятся все более редкими), то вывод будет "Диск может быть удален", потому что современные компьютеры часто эмулируют удаляемый диск для своих CDROM-дисков.

Вот альтернативное решение с использованием типа TDriveInfo в Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
  DriveInfo: TDriveInfo;
begin
  DriveInfo := GetDriveType('C:\');
  case DriveInfo.DriveType of
    dtNoRootDir: ShowMessage('Корневой каталог не существует');
    dtRemovable: ShowMessage('Диск может быть удален');
    dtFixed: ShowMessage('Диск не может быть удален');
    dtNetwork: ShowMessage('Драйв является сетевым диском (сетевой) диск');
    dtCDROM: ShowMessage('Драйв является диском CD-ROM');
    dtRAMDisk: ShowMessage('Драйв является RAM-диском');
  end;
end;

В этом альтернативном решении мы используем тип TDriveInfo для получения более детальной информации о диске. Функция GetDriveType возвращает экземпляр TDriveInfo, который содержит свойства, такие как DriveType, VolumeSerialNumber и VolumeName. Мы можем затем доступиться к этим свойствам для определения типа диска.

В статье описывается, как использовать функцию GetDriveType() API для определения типа дискового накопителя в программировании на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диски ::