Delphi 枚举内存堆的实例.rar

Delphi枚举内存堆的源码，一个简单的Delphi7Windows相关编程实例，内存堆枚举的例子。源代码如下：ListView1.Items.BeginUpdate;　　ListItem:=ListView1.Items.add;　　ListItem.Caption:=IntTostr(HeapList.th32HeapId);　　Listitem.SubItems.Add(format('$%p',[Pointer(HeapStruct.dwAddress)]));　　ListItem.SubItems.add(format('%d字节',[HeapStruct.dwBlockSize]));　　cas