Текущий архив: 2002.06.27;
Скачать: CL | DM;

Вниз

Звуковой фон. Как сделать?   Найти похожие ветки 

← →
Диана   (2002-02-15 16:47) [0]

Как заставить воспроизводить один и тот же звуковой файл непрерывно.

---

← →
Nikolay ©   (2002-02-15 19:33) [1]

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then begin
Notify := True;
Play;
end;
end;

---

← →
Satrap ©   (2002-02-16 10:21) [2]

PlaySound(PChar("Имя wav-файла"),0,SND_LOOP or SND_ASYNC);

Файл, указанный в "Имя wav-файла", будет воспроизводиться, пока Вы не вызовете

PlaySound(nil,0,SND_ASYNC);

Для использования PlaySound, укажите в uses файл mmSystem.

---

← →
Диана   (2002-02-19 13:16) [3]

Спасибо. Вы мне очень помогли.

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c