呵呵,偶也来发发自己的做法:
[B]1、应用程序系统的目录树形结构:[/B]
主程序文件.egd
pic<图片目录>\dxdl.txt
[B]2、在文件预处理公式中写入以下语句:[/B]
if(Exist(appdir+"dcdl.txt")=true,MsgBox("本系统在同一台机器上不允许多次运行,请按回车键退出!",0,1) and Reset()and Exit(),CopyFile(docdir+"pic\dcdl.txt",appdir+"dcdl.txt") and OpenMenu("myconts")and OpenGrid("主系统",1))
[B]3、在文件验证公式中写入:[/B]
if([%关闭%]="关闭",True,SendKeys("~") And MsgBox("请执行主程序顶层菜单上的[退出]或或主菜单上的[放弃保存退出]按钮!",0))
[B]4、在系统“退出”按钮中写入:[/B]
if(Exist(appdir+"dcdl.txt")=true,DelFile(appdir+"dcdl.txt")and SetVariable("%关闭%","关闭") And Do(12,1),SetVariable("%关闭%","关闭") And Do(12,1))
[B]5、设计思路:[/B]
在应用系统当前目录的pic子目录下放一个dcdl.txt文件(文件内容随便写),然后在应用系统启动时判断操作系统(XP)目录下是否存在dcdl.txt,如果有这个文件,则提示“本系统在同一台机器上不允许多次运行,请按回车键退出!”,如果没找到这个文件,则将pic\dcdl.txt拷贝到操作系统(XP)目录下并正常调用应用系统主菜单。
[B]程序屏蔽了易表自身的“退出”(右上角“X”)功能,主程序退出时删除操作系统(XP)目录下的dcdl.txt文件。
总之以pic\dcdl.txt作为判断标准,程序运行时拷贝dcdl.txt到操作系统(XP)目录下,如果再次启动程序时会因操作系统(XP)目录下已有dcdl.txt文件而禁止再次重复运行主程序![/B]
我一直是这个正常使用的,请大家测试评价!