东坡下载:内容最丰富最安全的下载站!

首页编程开发Delphi → Delphi XE7 取得进程占用内存的两个函数

Delphi XE7 取得进程占用内存的两个函数

相关文章发表评论 来源:本站整理时间:2016/4/1 17:49:46字体大小:A-A+

更多

作者:专题点击:456次评论:0次标签: Delphi

//取得指定进程占用内存
function GetProcessMemUse(PID: Cardinal): Cardinal;
var
  pmc: PPROCESS_MEMORY_COUNTERS; // uses psApi
  ProcHandle: HWND;
  iSize: DWORD;
begin
  Result := 0;
  iSize := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, iSize);
  try
    pmc^.cb := iSize;
    ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
      False, PID); // 由PID取得进程对象的句柄
    if GetProcessMemoryInfo(ProcHandle, pmc, iSize) then
      Result := pmc^.WorkingSetSize;
  finally
    FreeMem(pmc);
  end;
end;

//取得当前进程占用内存
function CurrentMemoryUsage: Cardinal;
 var
   pmc: TProcessMemoryCounters;
 begin
   pmc.cb := SizeOf(pmc) ;
   if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then
     Result := pmc.WorkingSetSize
   else
     RaiseLastOSError;
 end;
//调用上面两个函数,返回当前进程占用内存
function GetCurrentMemUse: Cardinal;
begin
//  Result := GetProcessMemUse(GetCurrentProcessId);
    Result:= CurrentMemoryUsage ;
end;

//显示
procedure TForm1.tmr1Timer(Sender: TObject);
begin
  stat1.Panels[0].Text := format('memory use: %d KB', [GetCurrentMemUse div 1024]);//1kb=1024b
end;

  • delphi精简版合集
  • delphi学习工具
  • delphi补丁
  • delphi下载
delphi精简版合集
(9)delphi精简版合集

为什么要选择精简版,Delphi原版一般体积都是比较大的,由期是从 delphi 2007 开始原版都是在1G以上,但里面是有很多比如帮助文件,一些没用的源文件一般我们也用不到,第二就是原版下载一来后如果要去破解也是一件比较麻烦的事情,需要替换文件等等,东坡给大家整合的精版体已经都集成了破解补丁,大部份Lite版本都是从网上搜集到的由lsuper制作的。这个 Lite 或者说是 Repack,就是为了方便 Delphier 们能方便的尝试 Delphi 的新功能,同时对系统的影响降到最小。至于用 Lite/Repack 还是原版,见人见智啦!

...更多>>
delphi学习工具
(104)delphi学习工具

delphi的学习其实很容易,只要你找到了他的原理,然后参考一些专业书,基本上一个星期就能上手,但是要成为高手,那就是还是要一定的经验积累,其实做任何事情都一样,这里为您提供了delphi的各种参考教程,delphi学习的电子书,以及delphi的一些小工具。

...更多>>
delphi补丁
(6)delphi补丁

delphi原版都是英文版本,但是中国人还是比较习惯中文,所以就有大神为大家提供了中文补丁,然而没有破解,也是然并卵,哥们可是冒着极大的风险为大家提供的delphi破解补丁,最看不惯一些公司打着正版的旗子,到处维护版权什么的,如果什么都要正版,中国的IT怎么发展。


...更多>>
delphi下载
(12)delphi下载

delphi的前身就是80后初学编程的语言pascal,那时候我对pascal学得还不错,但是delphi至今还是不会,但是对delphi一直关注与收藏,最近因为发了点小财,想换个电脑,所以把收集的delphi全部整理出来了,或是还不是很全面,但是希望能帮助到有需要的兄弟们。

...更多>>

扩展知识

相关评论

阅读本文后您有什么感想? 已有 人给出评价!

  • 2791 喜欢喜欢
  • 2101 顶
  • 800 难过难过
  • 1219 囧
  • 4049 围观围观
  • 5602 无聊无聊
热门评论
最新评论
昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)

本类常用软件