如何用纯Delphi代码触发堆损坏？排查无提示崩溃问题

我们的Delphi 12程序在某特定电脑上被Windows以FaultTolerantHeap错误终止，无任何报错提示，仅能在Windows事件查看器中看到相关日志，该问题偶发且无法稳定复现。

事件日志详情 #

Fault bucket 1800708316894836483, Typ 4
Event Name: APPCRASH
Response: Not available
Cab Id: 0
Problem signature:
P1: Contoso.exe
P2: 9.0.1.1
P3: 659fea29
P4: StackHash_2f9c
P5: 10.0.19041.3996
P6: 39215800
P7: c0000374
P8: PCH_AF_FROM_ntdll+0x000000000009DB34
P9: 
P10: 

Failure bucket 2083737153543537444, Typ 5
Event Name: FaultTolerantHeap
Reponse: Not available
Cab Id: 0
Problem signature:
P1: Contoso.exe
P2: 9.0.1.1
P3: 659FEA29
P4: ffffbaad
P5: 
P6: 
P7: 
P8: 
P9: 
P10: 

疑问与尝试 #

核心疑问 #

1. 什么是堆损坏？
2. 如何用纯Delphi代码触发堆损坏？
3. 纯Delphi代码能否触发此类无提示终止的崩溃？还是该问题更可能由Windows/驱动/硬件或编译器bug导致？

对堆损坏的理解与测试代码 #

我理解堆损坏可由内存写入溢出导致，溢出会覆盖数据间隙中的堆管理数据（如堆元素长度）。尝试用以下代码触发堆损坏：

type
  TMyObject = class(TObject)
    // 这些变量存储在堆上
    myvar: array[0..10] of char;
    myvar2: array[0..10] of char;
  end;

procedure TryToCorruptTheHeap;
var
  myobj: TMyObject; // 对象引用存储在栈上
begin
  myobj := TMyObject.Create;
  ZeroMemory(@myobj.myvar[0], 2000000); // 尝试破坏堆条目之间的区域以损坏堆
end;

但仅收到访问违例报错，程序未被系统无提示终止。

已做排查 #

• 开发机上用Microsoft Application Verifier未发现内存或堆问题；
• 使用FastMM4检测内存问题；
• 确认程序加载的均为微软DLL，未动态加载其他第三方DLL。

解答 #

1. 什么是堆损坏？ #

堆是Windows为程序分配动态内存的区域，堆损坏指程序非法修改了堆的内部管理结构（比如块大小、链表指针等），而非用户分配的内存区域。这种损坏可能不会立即触发崩溃，而是在后续堆操作（分配/释放内存）时才暴露，表现为随机崩溃、程序无响应或被系统终止。

2. 纯Delphi代码能否触发堆损坏？ #

可以，但你的测试代码直接写入超出进程地址空间的区域，会立即触发访问违例（Windows内存保护机制拦截），这不是典型的堆损坏场景。要触发真正的堆损坏，需要在合法分配的内存范围内溢出，覆盖相邻的堆管理结构，而不是直接越界到未授权区域。

比如以下代码可以更接近真实场景：

procedure TriggerHeapCorruption;
var
  P: PByte;
begin
  // 分配一块小内存
  GetMem(P, 16);
  // 写入超出分配大小的数据，覆盖堆管理结构
  FillChar(P^, 32, 0);
  // 后续堆操作会触发损坏暴露
  FreeMem(P);
end;

这段代码在分配的16字节内存后写入额外16字节，会覆盖堆的块头部信息，后续FreeMem操作时会触发堆检测，可能导致程序崩溃或被FaultTolerantHeap拦截。

3. 关于无提示终止与问题根源 #

你遇到的无提示终止是Windows FaultTolerantHeap (FTH)机制的表现：当FTH检测到堆损坏时，会尝试终止程序以防止更严重的系统问题，且可能不会弹出常规错误对话框。

这类偶发问题的可能根源：

• 堆损坏的延迟暴露：代码中的内存溢出在特定环境下（如内存布局不同、系统负载变化）才会覆盖关键堆结构，导致偶发崩溃；
• Windows系统或驱动问题：特定版本的Windows或第三方驱动可能干扰堆管理，尤其是在老旧或定制化系统中；
• 编译器或运行时库问题：Delphi 12的RTL在特定场景下可能存在堆管理bug，但这种情况概率较低；
• 硬件问题：内存错误、缓存故障等硬件问题可能导致随机堆数据损坏。

由于开发机上用Application Verifier和FastMM4未检测到问题，更可能是环境特定的堆损坏触发条件（比如目标机器的内存布局、系统补丁版本与开发机不同），或者是偶发的系统/硬件层面问题。

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