La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  13152 - COMO ACCESAR AL CD-ROM?
Autor:  Cesar Ruiz G.
Necesito distribuir una aplicacion, en la cual el ejecutable de instala en disco duro, y la informacion (.DB) se queda en el disco compacto o CD, mi pregunta es:

¿COMO PUEDO SABER CUAL ES LA UNIDAD QUE CORRESPONDE AL CD-ROM? ..como saber si es D: E: F: etc.....

Espero que alguien me pueda orientar mas al respecto...GRACIAS !!
  Respuesta:  Jose
Hola, Cesar.
Aqui tienes la solución. Te saldrá en un mensaje la letra de tu unidad de CD. Luego, con la variable, haces lo que quieras. Un saludos. Chao.
*********************************

var
letra : String;
numero: Integer;
i: word;
path : String;
begin

for numero := 1 to 27 do
begin
Letra := string(chr(64 + numero));
path := letra + ':\';
i := GetDriveType(PChar(LowerCase(Path)));
if i= DRIVE_CDROM then showmessage('La letra es la: ' +letra);
end;

end;