Как распознать тип устройства?

Тема в разделе "Delphi - Система", создана пользователем jeckp, 17 июл 2006.

Статус темы:
Закрыта.
  1. jeckp

    jeckp Гость

    Подскажите как можно распознать тип устройства (Flash, CD, DWD, HD, FD, MO, Zip и другие) и как можно (за)разблокировать съемные устройства от случайного их извлечения.
     
  2. gozer

    gozer Гость

    Для начала. мой совет "Научитесь правильно писать свои вопросы". Не устройства и накопистели.

    Нужно воспользоваться API функцией GetDriveType():
    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей