delphi 内存管理[5]


本文整理自网络,侵删。

 
内存管理[5]
本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表, 没想到一个最简单的程序也有 5 个堆.

效果图:


unit Unit1;

interface

uses
  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.

相关阅读 >>

Delphi adoquery添加用户及密码

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi 模仿qq截图

Delphi中复制线程

Delphi 检查父进程

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi gdi+基本用法总结

Delphi 之 列表框组件(tlistbox)

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi 设置系统静音取消系统静音

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...