内存管理[5]
本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表, 没想到一个最简单的程序也有 5 个堆.
效果图:
unit Unit1;
interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 =
class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
end;
var Form1: TForm1;
implementation{$R *.dfm}{把下面两个过程公用的部分提取为一个独立的过程}procedure GetHeaps(List: TStrings);
var HeapArr:
array[
0..
9]
of THandle;
{对列表数组, 先假定有 10 堆} n: Integer; i: Integer;
begin {获取进程中的堆列表; 函数的参数1是数组大小, 参数2是数组的第一个元素, 返回堆的实际数量} n := GetProcessHeaps(Length(HeapArr), HeapArr[
0]); List.Add(Format(
'当前进程共有 %d 个堆', [n])); List.Add(
'它们的句柄分别是:');
for i :=
0 to n -
1 do List.Add(IntToStr(HeapArr[i]));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin Memo1.Clear;
{调用公用过程, 在 Memo1 中显示堆句柄列表} GetHeaps(Memo1.Lines);
{再次添加默认堆的句柄} Memo1.Lines.Add(
''); Memo1.Lines.Add(
'默认堆的句柄是:'); Memo1.Lines.Add(IntToStr(GetProcessHeap));
end;
procedure TForm1.Button1Click(Sender: TObject);
var MyHeap: THandle;
begin {创建新堆} MyHeap := HeapCreate(
0,
1024*
1024*
2,
0);
{建立个 2M 的堆} Memo2.Clear;
{调用公用过程, 在 Memo2 中显示堆句柄列表} GetHeaps(Memo2.Lines);
{再次添加新建堆的句柄} Memo2.Lines.Add(
''); Memo2.Lines.Add(
'新建堆的句柄是:'); Memo2.Lines.Add(IntToStr(MyHeap));
{销毁新建堆} HeapDestroy(MyHeap);
end;
end.