如何在Delphi 7中播放音乐？

Question

我需要在我的程序的OnFormActivate事件中在程序开头的后台播放音乐。我有我想要使用的歌曲，但我不知道Delphi需要使用什么命令来开始播放那首歌。

谢谢你的帮助：）

Answer 1

使用TMediaPlayer组件，它位于组件面板的“系统”选项卡上。

procedure TForm1.FormActivate(Sender: TObject);
begin
  MediaPlayer1.FileName := '<fill in>.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

将Visible属性设置为False。

---

编辑以回应OP的评论：

要重复播放歌曲，您可以使用系统选项卡上的TTimer组件。要以一秒钟的延迟重复播放歌曲：

procedure TForm1.FormActivate(Sender: TObject);
begin
  MediaPlayer1.FileName := '<fill in>.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.TimeFormat := tfMilliseconds;
  Timer1.Interval := MediaPlayer1.Length + 1000;
  MediaPlayer1.Play;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MediaPlayer1.Play;
end;

将计时器的Enabled属性设置为False。

Answer 2

您可以使用TMediaPlayerComponent Here您可以找到有关如何使用它的教程。