delphi 播放mp3

mp1: TMediaPlayer;

mp1.FileName := ExtractFilePath(Application.Exename)+'凉凉.mp3';
mp1.Open;
mp1.Play;

可参考

http://www.cnblogs.com/pchmonster/archive/2012/07/12/2588846.html