Повторяющийся звук в Delphi

Posted by obzor under Delphi

можно ли как-то в delphi сделать так чтобы звук повторялся постоянно. то есть , если закончилась музыка то она снова включается и так пока сам ее не выключишь.

zvygin1964

procedure TForm1.Button1Click(Sender: TObject);
var PCh: PChar;
begin
if OpenDialog1.Execute then
begin
StrPCopy(PCh,OpenDialog1.FileName);
PlaySound(Pch,0,SND_ASYNC or SND_LOOP);
end;
end; 

Случайные статьи

• Как отправлять ЦЕЛЬНЫЕ сообщения через socket
• Рассылка. Выпуск 243
• Сенсорная кожа
• Как в Delphi узнать на каком из дисков стоит ОС?
• Как сделать при клике в каждом столбце StringGrid свое действие?
• Псевдопараллельное выполнение процедур (Потоки)
• CSS. Уголки на блоке.
• Как найти все ссылки на веб странице
• Базы данных в Delphi
• Ассемблер, массивы