请问PB中如何调用WAV等声音文件

[lothario]

要播放WAV文件等，无需很复杂，只要有声音就行。要求有清单

[vcpb]

FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll" ALIAS FOR "sndPlaySoundA"

lpszSoundName
A string that specifies the sound to play.

[soundbug]

使用以下的代码来播放声音文件:

uint lui_NumDevs

lui_NumDevs = WaveOutGetNumDevs()
IF lui_NewDevs > 0 THEN
sndPlaySound( "filename.wav", modeofplay(INT) )
END IF

其中: modeofplay
0 - 同步播放
1 - 异步播放
2 - 如果找不到声音文件，不使用缺省的声音文件
3 - 第1项与第2项
8 - 循环播放直到下一个sndPlaysound
10- 不停止播放


返回值:
0 出错（通常是文件没有找到）
1 成功


--------------------------------------------------------------------------------

上面的文件可以很好的播放声音，在Windows NT与Windows 95你还可能使用OLE来播放声音:

ole_snd.InsertFile("snd.wav")
ole_snd.Activate(InPlace!)

[feixuepiaopiao]

同意上边的