⤷ Recognize CDROM drive

Use GetDriveType-function for a type definition of the device. Returns values:
0 - Unknown
1 - Unknown
2 - Floppy Disk
3 - Local Drive
4 - Network Drive
5 - CD-Rom
6 - RAM-Disk

implementation

Uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  N: Byte;
  Drv: string;
  Drives: set of 0..25;
begin
  Integer(Drives):=GetLogicalDrives;
  for N:=0 to 25 do
    if N in Drives then
    begin
      Drv:=Char(N+Ord('A'))+':';
      if(GetDriveType(PChar(Drv))=5) then
        Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';
    end;
end;
More for developers