delphi - 如何让音乐在 Delphi 7 中播放？

Question

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

谢谢你们的帮助：）

Answer 1

使用 TMediaPlayer 组件，它位于组件面板的 System 选项卡上。

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.
在这里您可以找到有关如何使用它的教程。