1、声明外部函数:
//send Sound
Function Boolean sndPlaySoundA(string wavfile, uint Flags) Library "winmm.dll"
Function UInt waveOutGetNumDevs() Library "winmm.dll"
2、播放WAV声音文件:
uint lui_numdevs
string ls_filename
ls_filename = './pm_1.wav'
lui_numdevs = waveOutGetNumDevs()
if lui_numdevs > 0 then
sndPlaySoundA(ls_filename,1)
end if