XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Sistema: Sistema-Sounds abspielen
PRFellow-Presentación
Autor: Thomas Hölzer
Hilfsroutinen para Abspielen el Sistema-Sounds
Hinweise:
Falls una Ereignis kein Sound zugewiesen es,
intenta Windows una Default-Sound abzuspielen.
El Proc PlaySysSound juega el Sounds asynchron de
(el Programa se ejecuta más)
Def w32_PlaySound(3) !WINMM,PlaySoundA
Declarar snd#

Proc PlaySysSound

    Parámetros snd$
    Dim snd#,Add(Len(snd$),1)
    String snd#,0=snd$
    w32_PlaySound(snd#,0,1)
    Disponer 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

Ejemplo
Cls
PlayDefaultSound
WaitInput