Фоновая музыка

[Z_more]

Привет уважаемые форумчане! Дайте совет начинающему:
Я написал небольшое приложение и хотел бы чтобы играла фоновая музыка. Вот код:

Procedure TMain.PlayWAVfromRES();
var
hResource: THandle;
pData: Pointer;
begin
hResource := LoadResource(hInstance, FindResource(hInstance, 'Sound01',
RT_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then
raise Exception.Create('Cannot read Sound01');
SndPlaySound(pData, SND_MEMORY or SND_SYNC);
finally
FreeResource(hResource);
end;
end;

Музыка воспроизводится, но пока она не доиграет до конца основная форма приложения не доступна а мне нужно, чтобы можно было щелкать по форме, делать всякие действия, и чтобы одновременно играла фоновая релакс музыка.
Помогите советом!

[Z_more]

В общем я разобрался сам. Нужно было запускать музыка в потоке. Вот код, если кому интересно:
1. Сначала объявим наш поток

TPlaySoundThread = class(TThread)
private
{ private declarations }
Procedure PlayWAVfromRES;
protected
{ protected declarations }
procedure Execute; override;
public
{ public declarations }
end;

2. Добавим процедуру Exucute

procedure TPlaySoundThread.Execute;
begin
PlayWAVfromRES()
end;

3. В обработчике FormCreate добавим эти строчки:

pstThread := TPlaySoundThread.Create(false);
pstThread.Resume;
pstThread.Priority:= tpLower;

где pstThread это переменная - pstThread: TPlaySoundThread;

и усе, работает

[eoln]

Ещё есть способ SND_ASYNC
https://msdn.microsoft.com/ru-ru/library/aa909803.aspx