фоновое воспроизведение звуковых файлов в Delphi

[Lorden]

подскажити пожалуйста, вот имеется такой код:

Label2.Caption:=intTOStr(StrtoInt(Label2.Caption)-1);
if StrTOInt(Label2.Caption)=-1 then
begin
Timer2.Enabled:=true;
PlaySound('1.wav',0, SND_SYNC or SND_LOOP);
Timer1.Enabled:=false;
Label2.Caption:='60';
Label1.Visible:=false;
Label2.Visible:=false;

как мне сделать чтоб звук воспроизводился не остонавливая программу, т.е. когда играет песня все действия останавливаются, при её окончании программа дальше работает а надо чтоб песня играла и программа работала...

[Greblin]

Засуньте воспроизведение в отдельный поток. Или можно компонент MediaPlayer использовать

[SERG1980]

PlaySound('1.wav',0, SND_SYNC or SND_LOOP);

У вас стоит флаг SND_SYNC из-за которого упрвление программе передаётся только после того как проиграется музыкальный файл, а так как у вас стоит и флаг зацикливания то вряд ли вы получите управление замените его на SND_ASYNC

[Lorden]

спасибо большое за помощ, получилось всё как я и планировал!)