Lazarus Play constant Music in Background [SOLVED]

[AlphaInc.]

I've been working on a little tool the past few days and the functionality itself is fine. I wanted to make the tool a little nicer to work with (at least for me) and included a sound-file (called test.wav) which plays one of my favorite songs.

The idea was that the song constantly repeats itself but after one go through, the music stops. This is my code-snippet for the music-part:

Code: Pascal  [Select][+][-]

1. procedure TForm1.music();
2. begin
3.     PlaySound('test.wav', 0, SND_ASYNC);
4. end;

 

When i change SND_ASYNC to SND_LOOP and start debug my project my .exe-Windows does not appear but the music plays (also just once).

Also the Procedure is called at the project.lpr:

Code: Pascal  [Select][+][-]

1. begin
2.       ...
3.       Form1.music();
4.       Application.Run;

So how do I get the music to play in a constant loop? It doesn't have to be .wav btw.

[Mr.Madguy]

I guess you need to combine SND_ASYNC with SND_LOOP, i.e. "SND_ASYNC or SND_LOOP".

[AlphaInc.]

Yeah, that was the solution. Thank you!