|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/6/2 14:21:32 |
标题: |
|
加入我的收藏 |
楼主: |
方法如下:首先需要在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;
----------------------------------------------
|
|