无界面，mciSendString播放MP3

  uses mmSystem;

procedure TForm2.Button1Click(Sender: TObject);
begin
mciSendString('play D:\music\18赵海洋-夜空的寂静(钢琴曲).mp3',nil,0,0);
end;

 MP3路径不能有空格，如果有，用 ExtractShortPathName，文件名可以有空格

mciSendString(pWideChar('play '+ ExtractShortPathName( edit1.Text)) ,nil,0,0);   //解决路径 有空格的问题