Как заставить музыку играть в 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.

---

Редактировать в ответ на комментарий ОП:

Чтобы повторить песню, вы можете использовать компонент 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.
Здесь вы можете найти руководство по его использованию.