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 xe5 android 调用手机震动

Delphi中对进程内存进行读写

Delphi httpclient async异步获取网页代码

Delphi 控制窗口显示隐藏

Delphi tstream详解

Delphi 提升权限查找进程关闭进程单元

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi xe 共享一个之前封装的多进程共享内存的memorystream

Delphi xe5-android开发目录结构

Delphi 为 service application 添加描述文本的方法

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