Systemklänge

[Jan]

Hat jemand eine Ahnung, ob und wenn ja wie man Systemklänge in eine Xbase-Anwendung einbauen kann?

Jan

[Martin Altmann]

Hallo Jan,
in der Alaska-Generic-Newsgroup hat Regan Cawkwell am 20.07.2005 um 12:44 den folgenden Code veröffentlicht:

Code: Alles auswählen

#include "Dll.ch" //for sound alert

#define SND_SYNC 0
#define SND_ASYNC 1
#define SND_FILENAME 131072
#define SND_PURGE 64

procedure sound_alert(cFILE)

    cFILE:=".\sounds"+cFILE+".wav"

    IF file(cFILE)
       Thread():new()
       DllCall("WINMM.DLL",DLL_STDCALL,"PlaySoundA",0,0,0)
       DllCall("WINMM.DLL",DLL_STDCALL,"PlaySoundA",0,0,SND_PURGE)
       DllCall("WINMM.DLL",DLL_STDCALL,"PlaySoundA",cFILE,0,SND_FILENAME+SND_ASYNC)
    ENDIF

return

Es ist zwar nicht genau das, was Du willst - aber vielleicht reicht Dir das ja auch schon?

Viele Grüße,
Martin