delphi 播放背景音乐

本文整理自网络，侵删。

 
//播放.MP3文件: 
 
uses
  mmsystem;
 
//?_始播放: 
procedure TForm1.Button1Click(Sender: TObject); 
begin
MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww',nil, 0, 0); 
MCISendString('PLAY WW', nil, 0, 0); 
MCISendString('CLOSE ANIMATION', nil, 0, 0); 
end; 
 
//停止播放 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin
MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww', nil, 0, 0); 
MCISendString('STOP ww', nil, 0, 0); 
MCISendString('CLOSE ANIMATION', nil, 0, 0); 
end; 
 

相关阅读 >>

Delphi中让图片大小随timage控件大小变化

Delphi文本文件读写

Delphi 2009 泛型容器单元(generics.collections)[2]: tqueue<t>

Delphi中treeview的一些应用

Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决

Delphi xe10 对 json的解析应用

Delphi 对汉字字符串的截取问题

Delphi建立文件的快捷方式

Delphi 修改webbrowser的内容

Delphi中quotedstr介绍及使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 播放背景音乐