微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题为Foxpro For Windows应用程序设计两种可选择的退出方式
栏目主机类维护与维修
作者吉林 金寿日
发布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下运行通过。