За функцията GetDriveType в хелпа пише:
Return Values
The return value specifies the type of drive. It can be one of the following values:
Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.
За CD-ROM-а обикновено връщания тип е DRIVE_CDROM, освен в изключително редки случаи, когато компютъра си е накривил шапката и му е все тая какво го питаме
Та допиши си case-а и с останалите константи и ще се появи.