Delphi中MainForm的OnShow事件中的ExitProcess

发布时间：2020-12-15 04:02:04 所属栏目：大数据来源：网络整理

导读：我有一个应用程序,在启动时检查一些条件,并在主窗体的OnShow事件中启动外部程序.问题是如果启动外部程序时出错,我希望应用程序立即终止.但是有一个问题,因为EurekaLog捕获了我的异常并以某种方式通过否定对Application.Teminate和任何其他正常关闭方法的所有

我有一个应用程序,在启动时检查一些条件,并在主窗体的OnShow事件中启动外部程序.问题是如果启动外部程序时出错,我希望应用程序立即终止.但是有一个问题,因为EurekaLog捕获了我的异常并以某种方式通过否定对Application.Teminate和任何其他正常关闭方法的所有调用来中断消息循环.

所以这是我的问题,当这种情况存在时,ExitProcess是否是立即终止我的应用程序的最佳途径？

解决方法

当OnShow被解雇时,你进入程序太远,无法确定你真的不希望程序运行.你应该尽快做出决定. OnShow不是决定不应该显示表单的地方.

在您创建主窗体之前,应该检查这种情况.将检查放入DPR文件中,如果确定程序不应运行,则只需调用exit.

begin
  Application.Initialize;
  if not ApplicationShouldReallyStart then
    exit;
  Application.CreateForm(TMainAppForm,MainAppForm);
  Application.Run;
end.

填写您自己的ApplicationShouldReallyStart实现. (它确实应该是一个单独的函数,而不是DPR文件中的内联.如果DPR文件中的开始结束块太复杂,IDE会感到困惑.)

除此之外,不要调用ExitProcess.请停止呼叫暂停. Halt调用ExitProcess,但它也调用单元终结部分和其他Delphi特定的进程关闭任务.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!