Как узнать букву CD-ROM?

var DriveType: UInt;

DriveType := GetDriveType(PChar('F:\'));
if DriveType = DRIVE_CDROM then ShowMessage('Сидюк');


Взято с сайта



Содержание раздела

---

---