多线程 – 从delphi中的线程中止整个应用程序

我的delphi App存在一个主要问题.我正在开发一种使用外部安全性的软件.我正在使用必须连接到用户计算机的USB设备才能运行我的软件.如果用户有任何机会删除此加密狗,或者在没有加密狗的情况下启动,应用程序应该警告用户并立即停止.
在创建应用程序时会释放一个线程,该应用程序会检查安全设备.但是,当检查失败时,例如,没有找到设备,该线程没有杀死我的应用程序.我正在使用这样的东西：

retCode := checkSecurity();
    if retCode = -1 then
    begin
        ShowMessage('Security device not found! Terminating immediately!');
        Application.Terminate;
    end;

这里的主要问题是Application.Terminate并没有真正杀死应用程序.我已经读过SO和其他地方,Terminate发送一个优雅关闭的信号,并等待其他线程,在我的情况下,应用程序的主线程,完成.我真的需要按照提到的方式杀死应用程序,杀死所有线程并退出,如果可能的话,清理以避免内存泄漏,但如果不是,请跟我好.我正在使用Delphi XE2,使用Windows 8.1进行开发.

有任何想法吗？

解决方法

您可以拨打 ExitProcess强行立即终止.与Halt相比,OS函数ExitProcess执行的清理工作更少.