如何在软件里加入背景音乐

Question

最好能给个例子
给文档有分

Answer 1

加一个mediaPlayer 控件，程序运行的时候激活就可以了。

Answer 2

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;
其中的文件路径你自己指定，第一个按钮是打开，第二个按钮是关闭

Answer 3

用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;