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

[jeckp]

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

 

[gozer]

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

Нужно воспользоваться 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;