Si quieres obtener el código UPC que llevan los discos puedes usar la
función mciSendString con el comando "info cdaudio upc", tal y como se hace
en el siguiente fragmento:

    Dim UPC As String * 256
    mciSendString "info cdaudio upc", UPC, 255, 0

La variable UPC contendrá tras la llamada el código que quieres. Sin
embargo, ten en cuenta que no todos los discos tienen dicho código. He hecho
algunas pruebas y encontrado que, por ejemplo, el CD "The Piano" de "Michael
Nyman" no tiene código, sin embargo "Talk On Corners" sí que lo tiene. Para
evitar estos problemas lo mejor es usar el comando "info cdaudio identity",
tal y como se muestra a continuación:

    Dim Identity As String * 256
    mciSendString "info cdaudio identity", Identity, 255, 0

Esto siempre devolverá un código de CD distinto para cada disco,
indistintamente de que éste tenga o no UPC.

Saludos.
_____________________________
Francisco Charte Ojeda
charte@swin.net
Torre de Babel -> http://www.swin.net/charte

Efectivamente no todos los CDs tienen un identificador. De la Knowledge Base de Microsoft extraje la idea de obtener un ID unico a base de operar con el numero y duracion de las canciones. Y la verdad es que funciona !!!!.
Hace tiempo hice un reproductor de CDs (primero atacando con las APIs y luego
con el control MMControl). Pero por vagonancia no lo acabe del todo.
Suponiendo que tenemos un MMControl en el formulario que se llama MCI:
'---------------------------
    Dim DiskID As Long
    Dim Track As Integer

    DiskID = MCI.Tracks
    For Track = 1 To MCI.Tracks
        MCI.Track = Track
        DiskID = DiskID + MCI.TrackLength
        DiskID = DiskID + MCI.Length
    Next Track
'----------------------------

Josep Lluís Treig Cortés, jtreig@dtgna.altanet.org