[[seoane]]

Prueba con algo como esto:

Código Delphi [-]
var
  Letra: Char;
begin
  for Letra:= 'A' to 'Z' do
    if GetDriveType(Pchar(Letra+':\')) = DRIVE_CDROM  then
    begin
      // Aqui usamos la letra para lo que queramos
      ShowMessage('Esto es un CD-ROM '+Letra+':\');
    end;
end;