在VFP中退出Windows的方法

　　在一些Visual FoxProfor 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下运行通过。

最新文章

在VFP中用伪代码开发数据表维护屏幕[01-08]

在VFP中怎样做出象IE4中的那样的浮动按钮[01-08]

在VFP中制做异型窗口[01-08]

怎样在Visual FoxPro 中增加与去除网络联接[01-08]

foxpro 用离线视图工作[01-08]

foxpro 刷新(Refreshing) 离线视图[01-08]

相关文章

Foxpro 更多方法[01-08]

FOXPRO 对象、属性、事件、方法[01-08]

FOXPRO 常用的对象、属性、事件、方法(1)[01-08]

在VFP 6.0利用API函数调用Windows格式化磁盘界..[01-08]

VFP编辑框中实现自动更正的方法[01-08]

VFP表跟踪日志的实现方法[01-08]