Repeat ohne until

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,
ich möchte gern in einem Programm eine Melodie im Hintergrund laufen lassen, dazu habe ich im FormCreate folgendes geschrieben:

PlaySound(Pchar('Germany.WAV'),0,SND\_ASYNC);

Nun hört diese Melodie allerdings nach 30 Sekunden (Länge des Tracks) auf zu spielen *logisch*.
Gibt es eine Möglichkeit das ganze solage zu wiederholen, bis das Programm geschlossen wird (ich habe keine Ahnung was ich in das until schreiben soll!)?
Danke im Voraus
theking

#2

So sollte es funktionieren:

repeat
 PlaySound(Pchar('Germany.WAV'),0,SND\_ASYNC);
 Application.ProcessMessages; // Auf Ereignisse reagieren
until false;
#3

Hi, wenn ich mich nicht irre, brauchst du keine Schleife, es müsste auch so gehen:

PlaySound(Pchar('Germany.WAV'),0,SND\_LOOP);

Ich bin mir nicht 100%ig sicher, probiers mal aus.

mfG