![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
![]() Цитата:
я думаю человек хотел в фоне музычку пускать, так залочишь основной поток. а про потоки рассказывать - не тот уровень) Нет повести печальнее на свете, чем повесть о заклиневшем Resete. ![]() |
#17
|
||||
|
||||
![]() Ну ладно, вот вариант более дружественный:
Код:
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; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#18
|
|||
|
|||
![]() СтрадалецЪ
куда это вставлять |
#19
|
||||
|
||||
![]() В код программы, только измените TForm41 на имя вашей формы, добавьте компонент TTimer и событие OnTimer для него укажите Timer1Timer.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#20
|
|||
|
|||
![]() стадалецЪ.
куда это вставлять на таймер? |
#21
|
|||
|
|||
![]() --------------------------------------------------------------------------------
Цитата:
|
#22
|
|||
|
|||
![]() ПАСИБА огромное ПАСИБА!!!
|