get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是delphi编程实现播放背景音乐,一起来学习了解下吧!
【 tulaoshi.com - 编程语言 】
如果要做一些比较艺术化的程序时,你会想到插入背景音乐,这时你是否使用了TMediaPlayer控件来播放音乐呢?其实我们大可放弃该方法,直接使用WINDOWS为 我们提供的API函数来播放音乐,方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中e:1.mid为播放的文件,NN为自定义名称标志
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
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;(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
来源:http://www.tulaoshi.com/n/20160219/1616010.html
看过《delphi编程实现播放背景音乐》的人还看了以下文章 更多>>
如果您有什么好的建议或者疑问,可以联系我们。 商务合作QQ:3272218541;3282258740。商务合作微信:13319608704;13319603564。
加好友请备注机构名称。让我们一起学习、一起进步tulaoshi.com 版权所有 © 2019 All Rights Reserved. 湘ICP备19009391号-3
微信公众号