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 tstringlist的用法

Delphi从全路径中分离路径,有'\'

Delphi 汉字与区位码

Delphi 使用 lockbox 做加密解密

为什么编程是独一无二的职业

Delphi 获取毫秒级时间戳

Delphi的流操作的语法

Delphi xe5 android得到手机的手机号码

Delphi图片上写水印文字函数

Delphi 生成guid算法的单元

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

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