在VFP中退出Windows的方法

有些Visual FoxPro for windows(以下简称VFP)程序经常会涉及到直接退出windows窗口的问题，但由于VFP的函数库中没有提供这个功能，所以需要设计一个程序来实现这个功能。下面的程序是直接退出Windows的简单方法。其原理是利用User.exe函数库Foxtools.fll中的Regfn()和Callfn()函数，访问windows中的exitwindows()函数。

程序列表如下:

#退出窗口

当地移民

lnmesrs = messagebox(′您真的要退出windows吗？′，4+16+256，′退出窗口′)

如果mesrs = 6 #按下YES按钮执行。

设置为sys(2004)+" Foxtools.fll " additive #加载foxtools . FLL到内存中

Exit win = regfn ('Exitwindows '，t，t，' user.exe') #在user.exe(user . exe(windows 95)中注册退出windows()函数

E = callfn (exitwin，0) #执行Exitwindows()函数

结束条件

该程序已在Windows S32/Windows 95的Visual FoxPro 30下运行。