uses MMSystem, MPlayer; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
 mp : TMediaPlayer; 
 msp : TMCI_INFO_PARMS; 
 MediaString : array[0..255] of char; 
 ret : longint; 
begin 
 mp := TMediaPlayer.Create(nil); 
 mp.Visible := false; 
 mp.Parent := Application.MainForm; 
 mp.Shareable := true; 
 mp.DeviceType := dtCDAudio; 
 mp.FileName := 'D:'; 
 mp.Open; 
 Application.ProcessMessages; 
 FillChar(MediaString, sizeof(MediaString),  FillChar(msp, sizeof(msp),  msp.lpstrReturn := @MediaString; 
 msp.dwRetSize := 255; 
 ret := mciSendCommand(Mp.DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY, longint(@msp)); 
 if Ret <> 0 then begin 
  MciGetErrorString(ret, @MediaString, sizeof(MediaString)); 
  Memo1.Lines.Add(StrPas(MediaString)); 
 end else 
  Memo1.Lines.Add(StrPas(MediaString)); 
 mp.Close; 
 Application.ProcessMessages; 
 mp.free; 
end; 
 
end.