XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
system: system-Sounds Play
PRFellow-Presentation
Author: Thomas Hölzer
Hilfsroutinen to that Play the system-Sounds
Notes:
if one incident no Sound allocated is,
attempts windows a Default-Sound abzuspielen.
The Proc PlaySysSound game The Sounds asynchron ex
(the Program runs moreover)
Def w32_PlaySound(3) !WINMM,PlaySoundA
Declare snd#

Proc PlaySysSound

    Parameters snd$
    Dim snd#,Add(Len(snd$),1)
    String snd#,0=snd$
    w32_PlaySound(snd#,0,1)
    Dispose snd#

ENDPROC

Proc PlayDefaultSound

    PlaySysSound SYSTEMDEFAULT

ENDPROC

Proc PlayStartSound

    PlaySysSound SYSTEMSTART

ENDPROC

Proc PlayExitSound

    PlaySysSound SYSTEMEXIT

ENDPROC

Proc PlayWelcomeSound

    PlaySysSound SYSTEMWELCOME

ENDPROC

Proc PlayQuestionSound

    PlaySysSound SYSTEMQUESTION

ENDPROC

Proc PlayExclamationSound

    PlaySysSound SYSTEMEXCLAMATION

ENDPROC

Proc PlaySystemHandSound

    PlaySysSound SYSTEMHAND

ENDPROC

Proc PlaySystemAsteriskSound

    PlaySysSound SYSTEMASTERISK

ENDPROC

example
Cls
PlayDefaultSound
WaitInput