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 コンポーネントを使用できます。1 秒遅れて曲を繰り返すには:

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。
ここでは、その使用方法に関するチュートリアルを見つけることができます。