当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi 修改内存保护属性

Delphi 修改内存保护属性,包括修改以下信息:基地址、分配地址、区域大孝所分配保护属性、访问的保护属性、内存状态、内存类型等。核心源代码如下:
  VirtualQuery(Arrayptr, MemInfo, SizeOf(TMemoryBasicInformation));
  ListBox1.Items.Add('基地址: '+IntToHex(Longint(MemInfo.BaseAddress),8));
  ListBox1.Items.Add('分配地址: '+IntToHex(Longint(
   MemInfo.AllocationBase),8));
  ListBox1.Items.Add('区域大小: '+IntToStr(MemInfo.RegionSize)+' bytes');
  ListBox1.Items.Add('所分配保护属性: '+DisplayProtections(MemInfo.AllocationProtect));
  ListBox1.Items.Add('访问的保护属性: '+DisplayProtections(MemInfo.Protect));
  case MemInfo.State of
   MEM_COMMIT: ListBox1.Items.Add('内存状态: MEM_COMMIT');
   MEM_FREE: ListBox1.Items.Add('内存状态: MEM_FREE');
   MEM_RESERVE: ListBox1.Items.Add('内存状态: MEM_RESERVE');
  end;
  case MemInfo.Type_9 of
   MEM_IMAGE: ListBox1.Items.Add('内存类型: MEM_IMAGE');
   MEM_MAPPED: ListBox1.Items.Add('内存类型: MEM_MAPPED');
   MEM_PRIVATE: ListBox1.Items.Add('内存类型: MEM_PRIVATE');
  end;

  • 相关标签:内存
  • 调试环境:Delphi7+
  • 文件大小:7.46K
  • 资源评级:
  • 更新时间:2019-05-14
  • 相关链接:暂无演示

源码测试截图:

Delphi 修改内存保护属性运行截图

相似源码:内存 Delphi源码下载:Delphi 修改内存保护属性 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 修改内存保护属性”源代码侵犯了您的权益,请尽快告诉我们。