精华区文章阅读

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: 在VFP中退出Windows的方法
发信站: 哈工大紫丁香 (2000年12月30日18:37:47 星期六), 转信

在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(Windows95中用User32.exe)库中Exitwindows()函数
　　e=callfn(exitwin,0)　＃执行Exitwindows()函数
　　endif
　　此程序已在Visual Foxpro 30 for windows32/windows95下运行通过。

摘自CPCW

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]

Database 版 (精华区)