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 2009 indy10 idhttp get 中文出现乱码的问题

Delphi url 编码的装换

Delphi截取字符串的方法

Delphi pagecontrol不显示tab方式

Delphi中使用directx截屏函数

Delphi读取xml文件

Delphi定时器相关的简单例子

Delphi将图片转换成base64编码函数

Delphi多媒体函数

Delphi 将鼠标锁定在一定范围

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

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