Sound in Endlosschleife

Function API_PlaySound _
Lib "WINMM.DLL" Alias _
"PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8

Sub PlaySounddatei(Datei As String, Optional LoopIt As Boolean = False)
Dim Flags As Long
Flags = SND_ASYNC & SND_NODEFAULT
If LoopIt = True Then Flags = Flags & SND_LOOP
API_PlaySound Datei, 0, Flags
End Sub


'


Sub TestSound()
PlaySounddatei "c:\test.wav", True
End Sub




Ausgegeben wird hier lediglich das Standardsignal.



Erwin