[DELPHI 7] Hintergrundmusik

[Entwicklungsumgebungapi]

Hallo zusammen,
Ich hab ein kleines Spiel programmiert. Zu dem
will ich Hintergrundmusik laufen lassen.
Weiss jemand wie man das machen kann und wie man
man diese im loop abspielen kann.

Währe sehr nett wenn mir jemand helfen könnte !

 

[antivista]

Hallo Entwicklungsumgebungapi (komplizierter Name )

Das machst du so:

procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(PChar('C:\Datei.wav'),SND_SYNC);
end;

usätzlich muss die Unit mmsystem eingebunden werden.

SND_SYNC = Während die Datei abgespielt wird, steht die Anwendung

SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt.

SND_LOOP = Immer wieder und immer wieder

Diese Procedure sorgt wieder für Ruhe:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(nil,0);
end;

So sollte es eigentlich klappen

 

[Entwicklungsumgebungapi]

Hey Danke viel viel mal !
Werde es sofort ausprobieren !

Das mit dem Namen :

Nimms nicht tragisch :

Ich hasse ihn auch schon. Deshalb hab ich ihn
zu meiner Signatur hinzugefügt ! :p

Vielen Dank !!!