Wie kann ich die ID-Nummer einer Audio-CD ermittlen?

Dieses Beispiel zeigt, wie man die ID-Nummer einer Audio-CD ermittelt, die auch der Windows-eigene CD-Player als Identifikation benutzt:

verwendete Komponenten :

mp : TMediaPlayer
PlayerForm : TForm

function TForm1.GetCDName : String;
var InfoParm      : TMCI_Info_Parms;
    lpInfoString  : PChar;
const lenInfoString = 17;
begin
  playerform.mp.DeviceType := dtCDAudio;
  if not playerform.mp.AutoOpen then 
    playerform.mp.Open;
  GetMem(lpInfoString,lenInfoString);
  InfoParm.dwCallback  := 0;
  InfoParm.lpstrReturn := lpInfoString;
  InfoParm.dwRetSize   := lenInfoString;
  mciSendCommand(playerform.mp.DeviceID, mci_Info, 
                 (mci_Wait or {MCI_INFO_MEDIA_UPC} 
                  MCI_INFO_MEDIA_IDENTITY), Longint(@InfoParm) );
  Result := StrPas(lpInfoString);
  FreeMem(lpInfoString,lenInfoString);
end;

siehe auch:

Wie kann ich feststellen, ob eine Audio-CD im Laufwerk liegt?
Wie kann ich bei mehreren CD-ROM-Laufwerken ein bestimmtes für Audio-CD-Wiedergabe bestimmen?
Wie kann ich die Schublade des CD-Laufwerks ein-/ausfahren?

Delphi FAQ