Delphi关闭程序

你在关闭主窗体事件里加上判断，判断其他窗体是否还开着，若打开，就不关闭。或者你打开子窗体时尽量用form1.showmodal，不要用show打开子窗体，这样的话，子窗体必须关闭后才能回到主窗体

delphi 语言中，终止执行、跳出循环，使用如下代码：

Exit //退出本过程，继续执行调用些过程后的代码

Abort //退出本过程，但过程中异常处理部分的代码仍会执行

通常使用 Exit 在 procedure 或是 function 中执行跳出过程或是函数体。

如果需要直接中止程序，可以使用 Application.Terminate。

Application.Terminate 中止应用程序的运行，比较安全。而Halt则完全停止程序，这种完全停止，会忽略任何try finally块、任何finalization语句块以及Delphi编译器自动编译优化的内存清理代码的执行，从而造成内存丢失。强烈建议不要使用Halt。使用Application.Terminate 还会触发一些事件，而Halt绝对不会Application.Terminate 不会触发CLOSE事件close是正常的关闭方法FREE与DESTROY不是关闭的方法而是释放所创建的对象，不会关闭程序其它的关闭关法是调用API方式的，如结束进程的方式一般一用，正常情况中只要用close

---