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中format与formatdatetime函数详解

Delphi tnethttpclient上传文件

Delphi 下载函数

Delphi实现获取密码框中的密码

Delphi下程序内存泄露报告

Delphi删除整个目录及目录下的文件

Delphi 在瑞星2010全保护下创建文件夹

Delphi setprivilege 提权代码

Delphi xe5记录android应用程序（日志输出）

Delphi 进程保护

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

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