Повторяющийся звук в 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; 

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

• Загрузка файла из интернета
• Чтение данных из секций ini выборочно из ListBox
• Выгрузить данные из stringGrid в ms word
• Обновить иконки в трее
• Пример получения даты и температуры с сайта
• Сплеш (окно загрузки программы)
• Выполнить в указанный день
• Изменение внешнего вида параметра .body
• Как сделать динамическим обратный отсчет — таймер обратного отсчета времени
• Табица в Turbo Pascal