如何让音乐在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组件，也可以在System选项卡中找到该组件。要以一秒的延迟重复歌曲：

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你可以找到关于如何使用它的教程。