Detectar Nombre unidad donde se inserto CD

[jhonny]

El truco 47 de Trucomania tiene el siguiente ejemplo, que sirve para saber de que tipo es una unidad:

Código Delphi [-]
      function TipoDeDisco(RaizDisco: string): string;
      var 
        i: word;
      begin 
        i := GetDriveType(PChar(LowerCase(RaizDisco)));
        case i of 
          { Unknown }
          0:               result := 'no puedo determinarlo';         
          { it doesn't exist }
          1:               result := 'no existe';         
          { Floppy }
          DRIVE_REMOVABLE: result := 'floppy/extraible'; 
          { Fixed }
          DRIVE_FIXED:     result := 'disco fijo';       
          { Net unit }  
          DRIVE_REMOTE:    result := 'unidad de red';      
          { CD-ROM }
          DRIVE_CDROM:     result := 'cd-rom';  
          { Ram Drive }               
          DRIVE_RAMDISK:   result := 'disco-ram';              
        end; 
      end;

El llamado a esta función es, por ejemplo:

Código Delphi [-]
Label1.Caption:=TipoDeDisco('a:\');

Y la recomendación que hay mas abajo es la siguiente:

Podrias utilizarla también para buscar la unidad de CD-ROM del PC (pero cuidado, no basta con que
busques la primera que encuentres, podria haber más de una instalada).
Si tu aplicación extrae datos de un CD-ROM y necesitas saber si está insertado y en que unidad,
puedes primero buscar todas las unidades de tipo cd-rom, y, finalmente, buscar en todas ellas un
fichero determinado que sepas que existe en tu CD-ROM, así no habrá dudas.

Creo que ese truco se acopla a lo que necesitas. espero te sirva .