mp1: TMediaPlayer;
mp1.FileName := ExtractFilePath(Application.Exename)+'凉凉.mp3'; mp1.Open; mp1.Play;
可参考
http://www.cnblogs.com/pchmonster/archive/2012/07/12/2588846.html