uses
  MMSystem, MPlayer;

procedure TForm1.Button1Click(Sender: TObject);
var
  ret : longint;
  mp : TMediaPlayer;
  msp : TMCI_INFO_PARMS;
  MediaString : array[ 0..255 ] of char;
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), #0);
  FillChar(msp, sizeof(msp), #0);
  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;