西区故事电影:VFP6连编后能打开程序,关闭时提示“程序错误:文件正在使用”
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 13:45:28
我主程序代码如下:
————————————
*-防止程序重复运行的代码
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
————————————
*-防止程序重复运行的代码
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
VFP6连编后能打开程序,关闭时提示“程序错误:文件正在使用”
如何使用文件共享程序
打开某个网页时,出现提示:当前页的脚本发生错误,是否继续在该页面上运行脚本程序
程序文件
打开文件时显示“不是有效的WIN32(应用)程序”
无法删除文件夹 文件正在被另一个人或程序使用,无法删除文件夹 目录不是空的
打开方式/选择程序
安装程序检测出uninstallshield正在使用中
电脑里常见文件的打开方式(打开程序)及下载全面攻打!!
电脑里常见文件的打开方式(打开程序)及下载全面攻打2
电脑常见文件的打开方式(打开程序)及下载全面攻打
电脑里常见文件的打开方式(打开程序)及下载全面攻打kl,
电脑里常见文件的打开方式(打开程序)及下载全面攻打-1
电脑里常见文件的打开方式(打开程序)及下载全面攻打:
电脑里常见文件的打开方式(打开程序)及下载全面攻打q
电脑里常见文件的打开方式(打开程序)及下载全面攻打0
电脑里常见文件的打开方式(打开程序)及下载全面攻打
电脑提示虚拟内存低,然后一些程序的窗口自动被关闭,该怎么办?
批处理bat文件实现复制、删除、创建文件夹、执行程序、打开文件
打开 添加/删除程序 命令
Native程序的sources文件
Android原理 不需要关闭后台运行程序
安装程序无法复制一个或多个文件。特定错误码是0x4b8
关闭IE窗口就提示错误