打印本文 打印本文  关闭窗口 关闭窗口  
在VFP中退出Windows的方法
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:50:54  文章录入：杜斌  责任编辑：杜斌

　　在一些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下运行通过。
打印本文 打印本文  关闭窗口 关闭窗口