звук в delphi - Общие вопросы Delphi

kilogram4ik · 09.02.2021, 18:11

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

zvygin1964 · 09.02.2021, 20:47

Код:

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;  //http://welikeit.ru/delphi-zvuki.html

kilogram4ik · 10.02.2021, 11:13

zvygin1964, спасибо

09.02.2021, 18:11	#1
kilogram4ik Пользователь Регистрация: 15.10.2020 Сообщений: 68	звук в delphi можно ли как-то в delphi сделать так чтобы звук повторялся постоянно. то есть , если закончилась музыка то она снова включается и так пока сам ее не выключишь.

09.02.2021, 20:47	#2
zvygin1964 Старожил Регистрация: 19.06.2013 Сообщений: 2,469	Код: `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; //http://welikeit.ru/delphi-zvuki.html` Репутация: полный "0" Последний раз редактировалось zvygin1964; 09.02.2021 в 20:53.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Звук в Delphi	Xaker_Two	Помощь студентам	5	07.08.2013 01:54
Звук Звууууук Звук ... не рабоает звук..	Zvuuuuk	Компьютерное железо	2	22.01.2011 17:53
звук в delphi	feras	Помощь студентам	0	02.11.2010 02:07

10.02.2021, 11:13	#3
kilogram4ik Пользователь Регистрация: 15.10.2020 Сообщений: 68	zvygin1964, спасибо