发信人: nomean()
整理人: hunter__fox(2002-03-16 21:48:53), 站内信件
|
在VFP中退出Windows的方法
在一些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(W
indows95中用User32.exe)库中Exitwindows()函数
e=callfn(exitwin,0) ＃执行Exitwindows()函数
endif
--
我颤颤地伸出手
却没能握住一丝温柔
※ 修改:．nomean 于 Apr 21 11:17:21 修改本文．[FROM: 202.101.119.121]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.119.121]
|
|