1、调用Windows的APT函数SndPlaySound播放声音文件(.WAV)。
首先建立一个表单(FORM1),然后编写表单的 Activate过程:
PUBLIC Sound
SET LIBRARY TO Foxtool.FLL
Sound=Regfn("SndPlaySound","CI","I","Mmsystem")
=Callfn(Sound,"BACK.WAV",1)
再编写FORM1的Release过程:
=Callfn(Sound,"",10)
SET LIBRARY TO
运行表单后,BACK.WAV就作为背景音乐在后台播放,关闭表单时音乐自动停止。如果想让音乐自动循环播放,将Activate过程中最后一句换为:
=Callfn(Soun,"BACK.WAV",1+8)即可。
注意:如果你的计算机没有声卡,运行以上程序时将出错。
2、用“SET BELL TO” 响铃命令。
编写表单的Activate过程:
SET
BELL ON
SET
BELL TO "BACK.WAV"
??CHR(7)
再编写表单的Release过程:
SET BELL TO
注意:该种方法在运行时,不能进行循环播放,不能中断音乐的播放,但是在没有声卡的情况下,该种程序不会出错,只是进行PC喇叭的响铃一次。