Saber el UPC de un CD de audio

[MaMu]

Voy a pecar de ignorante en el tema audio, pero no es lo mismo hacer:

Código Delphi [-]
function GetVolumeID(DriveChar: Char): String;
  var
    MaxFileNameLength, VolFlags, SerNum: DWord;
  begin
    if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
       @SerNum, MaxFileNameLength, VolFlags, nil, 0)
    then
    begin
      Result := IntToHex(SerNum,8);
    end
    else
        Result := '';
  end;

Saludos