delphi编程实现播放背景音乐

京城怪杰

京城怪杰

2016-02-19 17:46

get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是delphi编程实现播放背景音乐,一起来学习了解下吧!

  如果要做一些比较艺术化的程序时,你会想到插入背景音乐,这时你是否使用了TMediaPlayer控件来播放音乐呢?其实我们大可放弃该方法,直接使用WINDOWS为 我们提供的API函数来播放音乐,方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中e:1.mid为播放的文件,NN为自定义名称标志

(本文来源于图老师网站,更多请访问http://m.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://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

delphi编程实现播放背景音乐

编程语言 网络编程
delphi编程实现播放背景音乐

用Delphi轻松实现背景播放

Delphi
用Delphi轻松实现背景播放

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

wps2009播放连续背景音乐

电脑入门
wps2009播放连续背景音乐

随机循环选择播放MIDI背景音乐

设计软件 平面设计软件 广告设计软件
随机循环选择播放MIDI背景音乐

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

DW MX实例:随机播放背景音乐

Web开发
DW MX实例:随机播放背景音乐

用API函数Mcisendstring直接播放背景音乐

编程语言 网络编程
用API函数Mcisendstring直接播放背景音乐

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

CSS实现DIV内容垂直及水平居中

CSS实现DIV内容垂直及水平居中

delphi编程计算数据库某字段的值

delphi编程计算数据库某字段的值
下拉加载更多内容 ↓