delphi - 如何让音乐在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。