用下面的程序后可以播放文件，有了音乐　

set bell on ＆＆使bell有效

　　set bell to′ .WAV文件′,1000 ＆＆使bell定向到一个.WAV 文件。
　　?chr(7)

　　＆＆播放该.WAV文件

可是退出的时候怎么关闭音乐呢？
我试了set bell off　和又写一个代码，再调用一个文件，把时间设为0，这样都不行！
哎。。。。。。。。

上面的代码还是昨天在该论坛上看到的！

为什么要 1000啊?时间短一点儿就行了!

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喇叭的响铃一次。

我在表单的release中按你说的写了set bell to ，运行后再关表单还是不行！
这是？

我在reaease中又写

set bell on ＆＆使bell有效

　　set bell to′2.WAV文件′,10 ＆＆使bell定向到一个.WAV 文件。
　　?chr(7)

2。WAV是一个只有一秒钟的音频文件
这样在退出来的时候转而执行2。wav，不过还是有一个‘砰’的声响
我把时间设为0也不行！