日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

東坡下載：內(nèi)容最豐富最安全的下載站！

首頁 → 編程開發(fā) → Delphi → Delphi XE7 取得進(jìn)程占用內(nèi)存的兩個(gè)函數(shù)

Delphi XE7 取得進(jìn)程占用內(nèi)存的兩個(gè)函數(shù)

相關(guān)文章發(fā)表評(píng)論 來源：本站整理時(shí)間：2016/4/1 17:49:46字體大小：A-A+

更多

作者：專題點(diǎn)擊：456次評(píng)論：0次標(biāo)簽： Delphi

//取得指定進(jìn)程占用內(nèi)存
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取得進(jìn)程對(duì)象的句柄
    if GetProcessMemoryInfo(ProcHandle, pmc, iSize) then
      Result := pmc^.WorkingSetSize;
  finally
    FreeMem(pmc);
  end;
end;

//取得當(dāng)前進(jìn)程占用內(nèi)存
function CurrentMemoryUsage: Cardinal;
 var
   pmc: TProcessMemoryCounters;
 begin
   pmc.cb := SizeOf(pmc) ;
   if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then
     Result := pmc.WorkingSetSize
   else
     RaiseLastOSError;
 end;
//調(diào)用上面兩個(gè)函數(shù)，返回當(dāng)前進(jìn)程占用內(nèi)存
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精簡(jiǎn)版合集
  • delphi學(xué)習(xí)工具
  • delphi補(bǔ)丁
  • delphi下載
delphi精簡(jiǎn)版合集
(9)delphi精簡(jiǎn)版合集

為什么要選擇精簡(jiǎn)版，Delphi原版一般體積都是比較大的，由期是從 delphi 2007 開始原版都是在1G以上，但里面是有很多比如幫助文件，一些沒用的源文件一般我們也用不到，第二就是原版下載一來后如果要去破解也是一件比較麻煩的事情，需要替換文件等等，東坡給大家整合的精版體已經(jīng)都集成了破解補(bǔ)丁，大部份Lite版本都是從網(wǎng)上搜集到的由lsuper制作的。這個(gè) Lite 或者說是 Repack，就是為了方便 Delphier 們能方便的嘗試 Delphi 的新功能，同時(shí)對(duì)系統(tǒng)的影響降到最小。至于用 Lite/Repack 還是原版，見人見智啦！

...更多>>
delphi學(xué)習(xí)工具
(104)delphi學(xué)習(xí)工具

delphi的學(xué)習(xí)其實(shí)很容易，只要你找到了他的原理，然后參考一些專業(yè)書，基本上一個(gè)星期就能上手，但是要成為高手，那就是還是要一定的經(jīng)驗(yàn)積累，其實(shí)做任何事情都一樣，這里為您提供了delphi的各種參考教程，delphi學(xué)習(xí)的電子書，以及delphi的一些小工具。

...更多>>
delphi補(bǔ)丁
(6)delphi補(bǔ)丁

delphi原版都是英文版本，但是中國人還是比較習(xí)慣中文，所以就有大神為大家提供了中文補(bǔ)丁，然而沒有破解，也是然并卵，哥們可是冒著極大的風(fēng)險(xiǎn)為大家提供的delphi破解補(bǔ)丁，最看不慣一些公司打著正版的旗子，到處維護(hù)版權(quán)什么的，如果什么都要正版，中國的IT怎么發(fā)展。


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

delphi的前身就是80后初學(xué)編程的語言pascal，那時(shí)候我對(duì)pascal學(xué)得還不錯(cuò)，但是delphi至今還是不會(huì)，但是對(duì)delphi一直關(guān)注與收藏，最近因?yàn)榘l(fā)了點(diǎn)小財(cái)，想換個(gè)電腦，所以把收集的delphi全部整理出來了，或是還不是很全面，但是希望能幫助到有需要的兄弟們。

...更多>>

相關(guān)文章

擴(kuò)展知識(shí)

相關(guān)評(píng)論

閱讀本文后您有什么感想? 已有 人給出評(píng)價(jià)!

  • 2791 喜歡喜歡
  • 2101 頂頂
  • 800 難過難過
  • 1219 囧囧
  • 4049 圍觀圍觀
  • 5602 無聊無聊
熱門評(píng)論
最新評(píng)論
發(fā)表評(píng)論 查看所有評(píng)論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字?jǐn)?shù): 0/500 (您的評(píng)論需要經(jīng)過審核才能顯示)
主站蜘蛛池模板： 军营医生 (1976)| 宇宙战队| 情事5| 破晓东方演员表名单| 陈一龙是哪部电视剧| 中国未来会黑人化吗| 想你的时候问月亮男声沙哑版| 一夜风流| 邵雨薇为艺术做出贡献的电影有哪些| 白鹭的简介资料| 天国车站在线观看| 电影《在云端》| 五年级上册第一单元数学试卷| 福音电影| 汪汪队完整版全集免费| 孙子兵法三十六计完整解释电子书| 美女网站视频在线| 敖丙手机壁纸| 极品白嫩嫩模酒店援交土豪av| 风月电视剧免费观看剧情| 新红楼梦惊艳版| 阀门图例| 唐街十三妹| 溜冰圆舞曲音乐教案| 金瑞亨为艺术奉献的电影有哪些 | 狂野鸳鸯| 红灯停绿灯行电影观看 | department什么意思| 可爱小熊| 郑有杰| 卓别林电影全集免费观看| 同志父子第二部叫什么| 小姐与流氓| 少年班校花和富二代是什么情况| 潜龙轰天 电影| 何时了却这牵挂原唱| 蓝燕3d电影《极乐宝鉴》在线观看| 孤岛飞鹰演员表| 行尸走肉第六季| 五上语文第7课笔记| 飞龙猛将演员表|