foxpro实现的几则小功能9给程序添加背景音乐）

1、给程序添加背景音乐 　　在利用Visual Foxpro 编制应用程序时，如果能给应用程序添加背景音乐，无疑是件锦上添花的事，背景音乐能给应用程序增色不少。不般的方法是利用OLE（对象嵌入与链接）进行嵌套。具体方法是选择“表单控件”上的“OLE容器控件”，将其拖到表单上，再在“插入对象（Insert Object）”窗口中选择“媒体剪辑”，调用“媒体播放机”，利用它来播 放出音乐，同时把播放任务条隐藏起来。利用这种方法要占用大量系统资源，且要利用到外部程序“媒体播放机”，不是一个好方法。其实我们可以利用VFP的动态链接库foxtools.fll来轻松
　　实现背景音乐，而且极少占用系统资源。foxtools.fll位于VFP的安装目录中,如下例中假设安装目录为C：VFP。假设Visual FoxPro 系统安装于C:VFP目录中。首先准备一WAV格式的背景音乐文件（这里以back.wav这例），放于指定目录如C:TEST中；可在表单（Form）的Activate事件中加入如下代码：
　　public sound set defa to C:TEST
　　set Library to c:vfp oxtools.fll &&指定FoxPro 动态链接库
　　sound=regfn("SndplaySound","CI","I","Mmsystem")
　　=callfn(sound,"back.wav",1)
　　为了在表单释放时关闭音乐， 同时在LostFocus事件中加入代码：
　　=Callfn(sound," ",10) set library to