在VFP中退出Windows的方法

詹灵
1998年 第16期 13版

　　在一些Visual FoxPro for windows（以下简称VFP）的程序中经常要涉及到直接退出Windows窗口的问题，但是由于VFP的函数库中没有提供此函数，所以就必须自己设计一个程序来实现这个功能。
　　以下程序就是直接退出Windows的一种简便方法，其原理是利用VFP中提供的动态连接函数库Foxtools.fll中的Regfn（）及Callfn（）函数去访问Windows的User.exe函数库中的exitwindows（）函数。
　　程序清单如下：
　　＃exit windows
　　local lnmesrs
　　lnmesrs=messagebox（′do you really want to quit windows?′，4＋16＋256，′exit windows′）
　　if lnmesrs=6　＃按YES按钮执行
　　set library to sys（2004）＋″foxtools.fll″ additive　＃将Foxtools.fll装入内存
　　exitwin=regfn（′exitwindows′，T，T， ′user.exe′）　＃注册User.exe（Windows95中用User32.exe）库中Exitwindows（）函数
　　e=callfn（exitwin，0）　＃执行Exitwindows（）函数
　　endif
　　此程序已在Visual Foxpro 3.0 for windows32/windows95下运行通过。


 