1.首先在declare菜单项中的globalexternal functions中定义引用的windowsapi 函数。
functionboolean sndplaysounda (string soundname, uint flags) library″winmm.dll″
functionuint waveoutgetnumdevs () library″winmm.dll″
2.然后定义一个播放声音文件的函数。
函数名与参数:f—playwave(s—wavename,i—option)
i—option=0(同步播放);i—option=1(异步播放)
返回值说明:本函数返回值类型为integer,1表示播放成功,-1表示播放失败。
函数内容:
booleanxx
uintlui—numdevs
lui—numdevs= waveoutgetnumdevs()
iflui—numdevs > 0 then
else
endif
3.在程序中调用。
下面的程序是实现同步播放名为“a1.wav"的声音文件:
stringls—soundname
intll—rtn
ll—rtn=f—playwave(ls—soundname,0)