易表在线答疑技术与交流用户社区 → 求教错在什么地方


  共有16742人关注过本帖树形打印复制链接

主题:求教错在什么地方

帅哥哟,离线,有人找我吗?
tzszw
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:蒙面侠 帖子:2409 积分:400 威望:0 精华:0 注册:2006/8/14 19:31:00
  发帖心情 Post By:2008/2/26 13:35:00 [显示全部帖子]

呵呵,偶也来发发自己的做法:

[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]


我一直是这个正常使用的,请大家测试评价!


 回到顶部