我主程序代码如下:
————————————
*-防止程序重复运行的代码
DECLARE Integer FindWindow in Win32Api String, String
wclass=0
winname= "查询 "
apphand = FindWindow(wclass ,winname)
IF apphand <> 0
Messagebox( "程序已经运行! ",48, "系统信息 ")
Quit
Endif
Modify Window Screen Title "查询 "
Set Default to SYS(5)+SYS(2003) &&设置软件所在的目录
Set Talk Off
Set Mark To
Set Compatible On
Set Escape Off
Set Dele On
Set Safe Off
Close All
If File( "Data\Data.dbf ")
Do Form 表单1
Read Events
Else
ErrorMsg= "数据文件缺失, "+chr(13)+ "请检查DATA目录, "+chr(13)+ "按确定后退出本程序! "
MessageBox(ErrorMsg,0+16+0, "系统提示 ")
Close All
Quit
EndIf
————————
表单的unload事件代码
————————
Erase *.dbf
Close all
Quit
未连编前,运行主程序,点击关工具栏×键能顺利关闭表单;连编并生成安装文件,之后运行NETSETUP目录下的setup进行安装,安装好后能打开软件,可是在点击工具栏×键的时候弹出名为“程序错误”的提示框,内容为“文件正在使用”(而我主表单未有打开表的操作,只是在主表单上点击一个按钮打开另一个表单才会有use表单的操作),我点击提示框上“取消”或“忽略”按钮后能关闭软件,可是怎么能取消这个提示框呢?
答案 :
Erase *.dbf
Close all
Quit
改成
Close data all
Erase *.dbf
Quit
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。