delphi - 如何干净地中止 Delphi 程序？

Question

我有一个程序在关闭期间遇到一些问题，引发了我无法追溯到其源头的异常。它似乎与时间相关且具有不确定性。这是在所有共享资源被释放之后发生的，并且由于它被关闭，内存泄漏不是问题，所以这让我想知道是否有任何方法可以告诉程序在释放共享资源后立即安静地终止，而不是继续执行关闭序列并给出异常消息框。

有人知道怎么做吗？

Answer 1

查看了 Delphi Run Time Library 源代码和 Microsoft 文档后；我可以证实 Mason 和 Paul-Jan 的评论。

关闭的层次结构如下

  Application.Terminate()
    performs some unidentified housekeeping of application
    calls Halt()

  Halt()
    calls ExitProc if set
    alerts the user in case of runtime error
    get rid of PackageLoad call contexts that might be pending
    finalize all units
    clear all exception handlers
    call ExitprocessProc if set
    and finally, call ExitProcess() from 'kernel32.dll'

  ExitProcess() 
    unloads all DLLs
    uses TerminateProcess() to kill the process