procedure TForm1.Button1Click(Sender: TObject); begin MCISendString('OPEN e:\TESTSND.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:\TESTSND.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('STOP NN', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0); end; 其中的文件路径你自己指定,第一个按钮是打开,第二个按钮是关闭
用mediaplayer控件,在Notify事件中写代码: procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin if Mediaplayer1.Position = Mediaplayer1.Length then if N_Repeat.Checked then begin MediaPlayer1.Position := 0; MediaPlayer1.Play; end;end;
begin
MCISendString('OPEN e:\TESTSND.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:\TESTSND.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('STOP NN', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
其中的文件路径你自己指定,第一个按钮是打开,第二个按钮是关闭
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if Mediaplayer1.Position = Mediaplayer1.Length then
if N_Repeat.Checked then
begin
MediaPlayer1.Position := 0;
MediaPlayer1.Play;
end;end;