PB11.5播放音乐文件 exe下不播放
在 Global External Functions 声明
Function boolean sndPlaySoundA (string SoundName, ulong Flags) Library "WINMM.DLL" alias for "sndPlaySoundA;Ansi"
Function ulong waveOutGetNumDevs () Library "WINMM.DLL"
程序中
//播放Wav
long lul_numdevs,a
a=long(sle_1.text)
lul_numdevs = WaveOutGetNumDevs() //Flags为播放风格(0同步播放,1异步播放,2不播放默认文件,4指向声音文件的内存指针地址,8循环播放,16如果当前正在播放,则不响应新的请求)
If lul_numdevs > 0 Then
sndPlaySoundA("C:\Users\lenovo\Desktop\aaa\yzts.WAV", a)
End If
在源码下面运行可以播放音乐 编译成exe就不播放了 lul_numdevs =0