Playing System Sounds

[Sam Finch]

Is there a way of playing system sounds other than the standard Beep, for example the menuclick or exit windows sound, or atleast fing the files so I can use PlaySound.

Thanks in advance.

[coox]

Paste this into a module:

Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0 ' play synchronously (default)
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

Paste this into a form with a single button:


Private Sub Command1_Click()
sndPlaySound ByVal "C:\Sound.wav", &H1
End Sub

[Serge]

Sure. You can specify registry entry for the sound event.

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC = &H1


Private Sub Command1_Click()
    PlaySound "SystemExit", 0&, SND_ASYNC
End Sub

Here are default predifined system names:

SystemAsterisk
SystemExclamation
SystemExit
SystemHand
SystemQuestion
SystemStart


Good luck

[Sam Finch]

thanks.