为Foxpro For Windows应用程序设计两种可选择的退出方式

Author: 吉林金寿日 Date: 1996-09-13

        首先打开Foxpro For Windows的屏幕生成器，建立一个名为Exit-Win.SCX的屏幕文件，然后设置三个分别为“返回到Windows”、“退出到MS-DOS”和“继续使用本程序”的下推按钮(屏幕文件及下推按钮的生成方法请查阅有关书籍，在此不赘述。
        在“退出到MS-DOS”下推按钮的Valid(事件驱动程序)中加入以下语句：
        Set Library to sys(2004)+"FoxTools.FLL" ADDITIVE
        exit-win=REGFN("exitwindows","I","I","USER.EXE")
        ?CALLFN(EXIT-WIN，0)
        其中，第一个语句Set Library to连接Foxtools.FLL动态连接函数库，第二个语句完成Windows API的ExitWindows()函数的注册操作，语句中的“I”应大写，第三个语句执行数值为零则退出Windows。
        在“返回到Windows”下推按钮的Valid中加入如下语句：
        close data
        clea all
        quit
        在“继续使用本程序”下推按钮的Valid中加入：
        clea read
        retu 0
        最后用Generate Screen生成一个名为exit-win.spr的程序文件，在应用程序中将其作为一个过程文件，在退出项中调用就能达到预期的目的。
        注：应用程序需要编译成独立运行的.EXE文件时，选择<ADD>按钮把各种文件加入到项目文件(pjx)中时，应包括Foxtools.fll(文件类型为Library)，否则编译时会有：“unable to find unknown REGFN”等提示。
        另外，在脱离Foxpro环境运行程序时，工作目录中应当有foxtools.fll的存在。
        以上程序在Foxpro For Windows 2.5下运行通过。