// Mit dem folgenden Code kann man die ID-Nummer einer Audio-CD ermitteln,
// die auch der Windows eigene Player als Identifikation benutzt.

// Getestet mit D4 unter XP

uses mmsystem, mplayer; 
 
type 
  arr = array[0..15] of char; 
 
function CDID(Laufwerk: Char): arr; 
var 
  i: integer; 
  info: TMCI_INFO_PARMS; 
begin 
  zeromemory(@Result, sizeof(arr)); 
  with TMediaPlayer.Create(nil) do begin 
    visible := false; 
    parent := Application.MainForm; 
    Shareable := true; 
    DeviceType := dtCDAudio; 
    FileName := Laufwerk + ':'; 
    open; 
    info.dwRetSize := sizeof(arr); 
    info.dwCallback := 0; 
    info.lpstrReturn := @Result; 
    i := mciSendCommand(DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY, 
      integer(@info)); 
    if i <> 0 then begin 
      beep; 
      Result := 'Fehler'; 
    end; 
    close; 
    free; 
  end; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.caption := CDID('F'); 
end;