Cómo saber el ID de un CD-ROM

Los CD disponen de un código, llamado UPC, que permite reconocer de forma única cada título. En el caso de los CD de audio esto puede ser útil para reconocer el disco y obtener de una base datos información como el título, los temas o el intérprete. El código siguiente obtiene el UPC del disco insertado en el lector de CD por defecto.

procedure TForm1.FormCreate(Sender: TObject);
var
   Cadena: String;
begin
     setlength(Cadena,256);
     mciSendString('open cdaudio', nil, 0,0);
     mciSendString('info cdaudio upc', PChar(cadena), 255, 0);
     showmessage(cadena);
end;

Hay que tener en cuenta que no todos los CD audio disponen del código UPC, aunque lo habitual es que sí lo tengan.