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;

Delphi 10.2 创建并使用资源文件

Delphi 如何判断html编码格式，解决乱码问题

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi webservices传base64字串

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi webbrowser的关于流载入流保存和流生成

dll 使用 pchar 参数的小例子

Delphi xe6 android视频采集

Delphi中判断操作系统是否是windows7

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

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