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

  • Автор темы jeckp
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

jeckp

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

gozer

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

Нужно воспользоваться 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;
 
Статус
Закрыто для дальнейших ответов.