终止delphi应用程序的正确方法是什么？

Question

我想在不执行任何其他代码行的情况下终止 Delphi 应用程序，我想知道哪种方法是正确的方法。此外，我想知道我目前正在做的事情是否有问题。 基本上，我的代码如下所示：

//Freeing all objects (Obj1.Free, etc..)
Application.Terminate;
Halt;

这是停止 Delphi 应用程序的正确方法还是应该以其他方式完成？

Answer 1

Application.Terminate() 打破TApplication.Run() 和TForm.ShowModal() 中的消息循环，让主线程正常退出，执行必要的清理等操作。

Vcl.Forms.TApplication.Terminate

结束应用程序执行。

调用Terminate 以编程方式结束应用程序。通过调用 Terminate 而不是释放应用程序对象，您允许应用程序以有序的方式关闭。

Terminate 调用 Windows API PostQuitMessage 函数来执行应用程序的有序关闭。 Terminate 不是即时的。 Terminate 在 WM_QUIT 消息和主窗体关闭时自动调用。

另一方面，Halt() 是立即异常终止。基本上，将进程从内存中提取出来。仅在没有其他选项可用的极端情况下使用它。

System.Halt

启动程序的异常终止。

Halt 执行程序异常终止并返回操作系统。

要正常终止 Delphi 应用程序，请在全局 Application 对象上调用 Terminate 方法。如果应用程序不使用提供Application 对象的单元，请从主程序块调用Exit 过程。

Answer 2

我想终止一个 Delphi 应用程序而不执行任何其他代码。

Application.Terminate 和 Halt 都无法实现这一点。前者执行有序终止。会执行很多代码。致电Halt 更有希望。那是异常终止。但是单元完成代码被执行。

如果您希望尽快退出，同时执行最少的代码，请致电ExitProcess。这是Halt 的最后一步，通过直接调用ExitProcess，您可以避免Halt 在调用ExitProcess 之前执行的所有步骤。

Answer 3

我在使用 Application.Terminate 时遇到了一些问题，因为我必须启动 Form Close 程序，所以我只做了：

Form1.Close;

我在 .dproj 中找到了一个新的解决方案

begin
  ReportMemoryLeaksOnShutdown := True;
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  if Not(VerifyCode()) then
  begin
      ShowMessage('Software unregistered!');
      Application.Terminate;
  end
  else
  Application.Run;
end.

Answer 4

如果代码必须在主窗体 OnCreate 上，只是为了说明一个额外的问题。

在主窗体 OnCreate 事件上尝试这样的代码。它没有按预期工作，显示主窗体，然后应用程序完成。

为了能够看到它，添加另一个表单并在其创建过程中放置​​一个长循环。

似乎主项目源上的所有Application.CreateForm都已执行。

示例代码：

procedure TMyMainForm.FormCreate(Sender: TObject);
begin
     ShowMessage('[1] This must allways be shown');
     if mrOK=MessageDlg('Exit?',mtConfirmation,[mbOK,mbCancel],0)
     then begin
               Application.Terminate;
               Exit;
          end;
     ShowMessage('[2] This must not allways be shown');
end;
procedure TMyOtherForm.FormCreate(Sender: TObject);
begin
     ShowMessage('[3] This must not allways be shown');
end;

使用该代码，消息 [1] 和 [3] 始终显示。

不显示 [3] 的唯一方法是调用 Halt。

注意：为什么 MainForm OnCreate 上有这样的代码？简单的答案可能是，exe 检查要运行的条件并查看它们是否不满足（缺少文件等），粗鲁的一个（抱歉），只是因为我想要/需要。