播放背景音乐
时间： 2021-07-31 作者：daque
本领如次：开始须要在uses局部介入mmsystem，接着写入下列语句，个中e:\1.mid为播放的文献，nn为自设置称呼标记 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;
相关推荐
推荐下载
热门阅览
最新排行
- 1 手机如何装windows系统，手机装windows系统教程
- 2 微信公众号重大调整 新公注册公众号将没有留言功能
- 3 烧杯app最剧烈的反应有哪些？ 烧杯app攻略
- 4 微信小程序怎么用 微信小程序使用教程
- 5 360快剪辑怎么使用？360快剪辑图文视频教程
- 6 八分音符外挂神器：绝望中的战斗机
- 7 2017热门微信小程序排行榜 微信小程序二维码大全
- 8 微信聊天记录导出到电脑 怎么在电脑上查看微信聊天记录
- 9 在U递上赚钱和省钱教程 教你在U递上怎么赚钱何省钱
- 10 u递邀请码申请教程 u递邀请码领取方法
- 11 如何解决爱奇艺账号登陆验证 跳过爱奇艺账号手机登录验证方法分享 亲测好用
- 12 手机申请无限制申请QQ靓号 手机怎样无限申请Q号