主题：求一个真正强制退出程序的代码

在程序中，进行一些判断，如果不符合条件，就强制退出软件。

 

试了一下

 

Syscmd.Project.Exit(False)

Syscmd.Project.Exit(False)

Syscmd.Project.Exit()

basemainform.close()

 

虽然退出程序了，但是都会出现各样的“运行错误”提示窗口，提示内容大多是“无法访问已释放的对象”。

有没有一个代码，退出就是退出，没有任何提示的呢？

 没有强制退出的代码。除非你直接把foxtable进程给杀死。

 

 提示 无法访问已释放的对象，应该是在你的beforeCloseProject事件写有错误的代码了

 

不是错误的代码。

 

1.在项目的 AfterOpenProject 事件中，如果软件没有注册，则打开“注册”窗口。

 

2.在“注册”窗口的“确定”按钮中判断，如果注册码不正确，则退出程序。

 

3.退出程序的代码，以下几个都用过，全部是退出程序以后，弹出报错对话框。

 

Syscmd.Project.Exit(False)

Syscmd.Project.Exit(False)

Syscmd.Project.Exit()

basemainform.close()

 

提示是

 

 
此主题相关图片如下：2014-06-23 17-42-39.png

 

如果事件中有错误代码，如何实现 第2步 中的“退出程序”呢？

 用这个方法，如果不行，请上传例子

 

Syscmd.Project.Exit(False)

 

好，上个例子吧。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试退出程序.foxdb

甜师父……

 呃，这种情况，不能直接关闭。

 

 你用一个返回值，在afterOpenProject那里判断是否关闭，然后控制关闭吧。

算不算BUG?

这个“返回值”需要是一个全局变量，或是“设置”值吧？

是的,用全局变量吧