如何在PB6中播放WAV文件？

[fish007]

[hyzx2000]

声明API函数：
Function boolean sndPlaySoundA( &
string SoundName, uint Flags ) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"

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

uint lui_NumDevs

lui_NumDevs = WaveOutGetNumDevs()
IF lui_NewDevs > 0 THEN
sndPlaySound( "filename.wav", modeofplay )
END IF
其中: modeofplay
0 - 同步播放
1 - 异步播放
2 - 如果找不到声音文件，不使用缺省的声音文件
3 - 第1项与第2项
8 - 循环播放直到下一个sndPlaysound
10- 不停止播放


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

[fish007]

先行谢过，待试过再给分！（正要出差）