首页 > 代码库 > Delphi7 之 内存篇(五)
Delphi7 之 内存篇(五)
本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表,
效果图:
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.
Delphi7 之 内存篇(五)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。