控制台程序调用ExitProcess(0)无法显示内存泄漏的技术咨询

嘿，我懂你现在的头疼事儿——用ExitProcess(0)强制退出控制台程序时，明明有内存泄漏，ReportMemoryLeaksOnShutdown却完全检测不到；可不用这个函数，又不知道该怎么正常退出程序对吧？咱们来拆解一下问题，再给出靠谱的解决办法。

为什么ExitProcess会跳过内存泄漏检测？ #

ExitProcess是Windows系统级的API，它会直接终止整个进程，完全绕过了Delphi运行时的清理流程——包括内存泄漏检测的逻辑。也就是说，进程被瞬间干掉了，Delphi根本没机会去扫描那些没释放的内存块，自然就检测不到泄漏了。

解决方案：两种思路任选 #

1. 用Delphi原生退出方式替代ExitProcess

其实控制台程序完全不需要依赖ExitProcess来退出。Delphi提供了更贴合自身运行时的退出方法：

• Halt(0)：这个函数会触发Delphi运行时的清理步骤，包括执行内存泄漏检测，然后再退出进程。
• 让程序自然结束：如果没有特殊的提前退出需求，直接让代码执行到begin...end主块的结尾，程序会自动正常退出，同样会触发泄漏检测。

把你的示例代码改成这样试试：

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses sysutils, classes, windows;

function Test: Boolean;
var test : TStringList;
begin
  test := TStringList.Create;
  // 用Halt替代ExitProcess，触发运行时清理
  Halt(0);
end;

begin
  try
    ReportMemoryLeaksOnShutdown := true;
    Test;
  except
    on E: Exception do
      Writeln('Exception occurred: ', E.Message);
  end;
end.

运行这个版本，你就能看到内存泄漏的提示了。

2. 必须用ExitProcess？先手动触发泄漏检测

如果因为某些特殊场景必须调用ExitProcess，那就在调用它之前手动触发内存泄漏检测。Delphi提供了ReportMemoryLeaksNow函数，它会立刻执行泄漏检查，不用等到程序shutdown阶段。

修改后的代码如下：

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses sysutils, classes, windows;

function Test: Boolean;
var test : TStringList;
begin
  test := TStringList.Create;
  // 先强制检测内存泄漏，再调用ExitProcess
  ReportMemoryLeaksNow();
  ExitProcess(0);
end;

begin
  try
    ReportMemoryLeaksOnShutdown := true;
    Test;
  except
    on E: Exception do
      Writeln('Exception occurred: ', E.Message);
  end;
end.

这样就算用ExitProcess终止进程，也能先把内存泄漏的信息打印出来。

小提醒 #

别忘了ReportMemoryLeaksOnShutdown默认只在调试模式下生效哦（也就是项目开启了{$DEBUGINFO ON}的情况）。如果是发布版本，这个检测逻辑会被自动禁用，要是需要在发布版本也检测泄漏，得额外做配置。

内容的提问来源于stack exchange，提问作者John