PB里面播放音乐

//定义函数

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

 

欢迎转载，但请保留出处，本文章转自[华软源码]，原文链接： http://www.hur.cn/Article/2011/123546.html

http://blog.csdn.net/anyqu/article/details/39586579