FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll "
FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll " ALIAS FOR "sndPlaySoundA "
//播放wav文件
ulong ll_numdevs,ll_mode
ll_mode = 0
ll_numdevs = waveOutGetNumDevs()
if ll_numdevs > 0 then
sndPlaySound(as_wavfile,ll_mode)
end if