zoukankan      html  css  js  c++  java
  • Delphi7 之 内存篇(五)

    本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表,

    效果图:

    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.
  • 相关阅读:
    MDX查询语句
    MyEclipse 点击 部署 按钮 无效
    C#创建数字证书并导出为pfx,并使用pfx进行非对称加解密
    SSIS – 变量和表达式
    使用 SSIS Foreach Loop 容器 – Foreach Item Enumerator
    SSIS – For Loop Container
    SSIS 中的文件系统任务 (File System Task)
    TypeError: parse() got an unexpected keyword argument 'transport_encoding' 安装tensor后报错
    np基本函数大全
    使用OpenCV对图像进行缩放
  • 原文地址:https://www.cnblogs.com/delphi2014/p/4043961.html
Copyright © 2011-2022 走看看