PB里面播放音乐

更新时间:2020-06-22 17:35:40

查看次数:

网站简介://定义函数FUNCTION ulong waveOutGetNumDevs() LIBRA

详细介绍
//定义函数
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
留言与评论(共有 条评论)

   
验证码: