//定义函数
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
string ls_wavfile
ll_mode = 3
ls_wavfile = '播放的文件'
ll_numdevs = waveOutGetNumDevs()
if ll_numdevs > 0 then
sndPlaySound(ls_wavfile,ll_mode)
end if
欢迎转载,但请保留出处,本文章转自[华软源码],原文链接:
阅读(1810) | 评论(0) | 转发(0) |