声明全局函数
Function boolean sndPlaySoundA(string wavfile, int flag) Library"Winmm.dll"
Function int waveOutGetNumDevs() Library"Winmm.dll"
调用语句
ls_file = string("D:\peisong\WAV\ALARM.WAV")
lui_NumDevs = WaveOutGetNumDevs()
if lui_NumDevs > 0 then
SndPlaySoundA(ls_file, l_mode)
end if
但是没起作用啊 谁给指导一下
------解决方案--------------------
Function boolean sndPlaySoundA(string wavfile, int flag) Library"Winmm.dll"
改为
Function boolean sndPlaySoundA(string wavfile, int flag) Library"Winmm.dll" alias for "sndPlaySoundA;Ansi"
再试试