ID-Nummer einer Audio-CD ermitteln

[Delphi Star]

Mit diesem Source kann man die ID-Nummer einer Audio-CD ermittelt, die auch der Windows eigene CD-Player als Identifikation benutzt.

Delphi-Quellcode:

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;

Ich habe die folgenden Komponenten verwendet:
mp : TMediaPlayer
PlayerForm : TForm

[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]