delphi中使用mediaplayer控件播放音乐

新建一个名字为media的文件夹，把要播放的音乐文件放在这个文件夹里。

ExtractFilePath是用来获得产生的可执行程式所在的路径，因为我们把要播放的音乐文件放在了可执行程式的那个根目录下。

procedure TForm1.MediaPlayer_Play;

var mediapath,v_BaseDir:string;

begin

v_BaseDir := ExtractFilePath(Application.ExeName);

SetCurrentDir(v_BaseDir);

mediapath:=v_BaseDir + 'media\does somboby tells you.mp3';

form1.MediaPlayer1.DeviceType:=dtAutoSelect;

form1.MediaPlayer1.FileName:=mediapath;

form1.MediaPlayer1.Open;

form1.MediaPlayer1.Play;

end;

这样用一个button事件调用这个procedure就可以播放音乐文件了。