说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

播放背景音乐-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
播放背景音乐-Delphi资料

如果要做一些比较艺术化的程序时,你会想到插入背景音乐,这时你是否使用了TMediaPlayer控件来播放音乐呢?其实我们大可放弃该方法,直接使用WINDOWS为 我们提供的API函数来播放音乐,方法如下:首先需要在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;

通过Linux Shell实现Android横竖屏切换 Android高手应该精通哪些内容? Android 2.2开始resources.arsc有改变 分析你的Android ANR错误 API Level对照表,更新至2.3.3 APACHE下目录访问的问题 $$$求一能令应用程序重新启动的系统函数 怎样查看blob类型的数据?? 请教:系统调用的问题! 就离开长沙了,有几本it方面的书带不走,转让! 谁见过这样的软件? 见多识广者请进 请教solaris系统:显示器电源管理在那里设? 就离开长沙了,有几本it方面的书带不走,转让! <<纪昌学射>>之寓意和主要内容我只有七分了, 纪昌学射的寓意 纪昌学射的寓意1111 纪昌学射的故事内容和寓意是什么? 纪昌学射是什么意思 仿写有关读书的名言警句!例句:知识是珍贵宝石的结晶 老人与海鸥 人少的地方,是他喂海鸥的领地.老人把饼 21课老人与海鸥课后1题 被自己感动 作文求一篇以《被自己感动》为题的作文, 四川中巴强冲法院两民警受伤 嫌疑人已巴西青年示威游行演变为骚乱 一人受伤利比亚运钞车遭抢 劫匪抢走总计数千万日欧首脑会议将在东京举行 拟讨论伊核火车空调车明年全配插座 手机、电脑可期待中国发展为亚太释放更多红利 访A中法地方政府合作成果丰硕港学联周永康就“APEC上京请愿”改东京股市日经股指上涨0.52%甬台温高速两辆半挂车发生刮擦 货物散大千之门搬个美国到北宋九转重生英雄联盟之韩娱巨星炉石大领主诸葛草庐旅游黄河石林旅游观景台旅游鱼沼飞梁旅游难老泉旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘