我的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执行的清理工作更少.