Delphi实现背景音乐播放

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);begin//播放音乐  MCISendString(OPEN e: \1.MID type SEQUENCER ALIAS NN, , 0, 0);  MCISendString(PLAY NN FROM 0, , 0, 0);  MCISendString(CLOSE ANIMATION, , 0, 0);end; procedure TForm1.Button2Click(Sender: TObject);begin//停止播放  MCISendString(OPEN e: \1.MID type SEQUENCER ALIAS NN, , 0, 0);  MCISendString(STOP NN, , 0, 0);  MCISendString(CLOSE ANIMATION, , 0, 0);end;
 

相关阅读 >>

Delphi10.3构造一个json数据的第三种方法，并格式化输出

Delphi通过idhttp和php交互

Delphi exe文件自效验

Delphi rgbtohsb

Delphi 数据库char varchar nvarchar区别

Delphi runtime error 216 程序退出后弹出错误

Delphi deletefile 删除文件

Delphi下遍历指定目录下指定类型文件的函数

Delphi 检验指定字符串网址是否输入正确

Delphi win32，win64用于单/多线程计数素数的整数性能比较

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

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