多线程 – 从delphi中的线程中止整个应用程序
发布时间:2020-12-15 04:27:24 所属栏目:Java 来源:网络整理
导读:我的delphi App存在一个主要问题.我正在开发一种使用外部安全性的软件.我正在使用必须连接到用户计算机的USB设备才能运行我的软件.如果用户有任何机会删除此加密狗,或者在没有加密狗的情况下启动,应用程序应该警告用户并立即停止. 在创建应用程序时会释放一
我的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执行的清理工作更少.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |