[Ferra]

Сообщение от Страдалецъ

Код:

 repeat
 if MediaPlayer1.Mode = mpStopped
 then MediaPlayer1.Play;
 until False;

я думаю человек хотел в фоне музычку пускать, так залочишь основной поток. а про потоки рассказывать - не тот уровень)

[Страдалецъ]

Ну ладно, вот вариант более дружественный:

Код:

procedure TForm41.Button1Click(Sender: TObject);
begin
 MediaPlayer1.FileName := 'F:\Media\Audio\OST-Kill_Bill_Volume_One-2003-XMR\20_flip_sting-xmr.mp3';
 MediaPlayer1.Open;
 Timer1.Interval := 10;
 Timer1.Enabled := True;
end;

procedure TForm41.Timer1Timer(Sender: TObject);
begin
 if MediaPlayer1.Mode = mpStopped
 then MediaPlayer1.Play;
end;

[Solyaha]

СтрадалецЪ
куда это вставлять

[Страдалецъ]

В код программы, только измените TForm41 на имя вашей формы, добавьте компонент TTimer и событие OnTimer для него укажите Timer1Timer.

[Solyaha]

стадалецЪ.
куда это вставлять на таймер?

[Solyaha]

--------------------------------------------------------------------------------

стадалецЪ.
куда это вставлять на таймер?

я тупанул

[Solyaha]

ПАСИБА огромное ПАСИБА!!!