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

播放背景音乐-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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘