delphi 播放背景音乐

[delphi]代码库

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;