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就可以播放音乐文件了。

delphi中使用mediaplayer控件播放音乐

标签：

原文地址：http://www.cnblogs.com/zhangzhifeng/p/5663114.html