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

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

谢谢你们的帮助:)

最佳答案

使用 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。

关于delphi - 如何在 Delphi 7 中播放音乐？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7765955/