Delphi11 销毁当前程序进程

在Delphi 11中，如果你想要销毁当前程序的进程，通常不会直接使用 Delphi 的标准库来实现这个操作，因为这通常是系统级的操作，需要通过底层API来完成。然而，你可以利用 Delphi 对 Windows API 的支持间接达到目的。

这里有一个简单的示例，说明如何使用Windows API函数TerminateProcess来终止进程[^1]：

uses
  Windows,
  Winapi.Process;

function TerminateCurrentProcess(): Boolean;
var
  hProcess: THandle;
begin
  hProcess := GetCurrentProcess();
  if Process.Terminate(hProcess, 0) then
    Result := True
  else
    Result := False;
end;

这段代码定义了一个函数`TerminateCurrentProcess()`，它首先获取当前进程的句柄（`hProcess`），然后尝试调用`TerminateProcess()`函数来终止进程。参数第二个为0表示正常退出，非0则强制退出。

但是请注意，这种操作应该谨慎对待，因为它可能导致数据丢失或者未保存的工作状态。在实际应用中，通常会提供更友好的用户界面让用户确认是否真的要结束进程。