XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: System-Sounds abspielen
PRFellow-Vorlage
Autor: Thomas Hölzer
Hilfsroutinen zum Abspielen der System-Sounds
Hinweise:
Falls einem Ereignis kein Sound zugewiesen ist,
versucht Windows einen Default-Sound abzuspielen.
Die Proc PlaySysSound spielt die Sounds asynchron ab
(das Programm läuft weiter)
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

Beispiel
Cls
PlayDefaultSound
WaitInput