变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

東坡下載：內容最豐富最安全的下載站！

首頁 → 編程開發 → 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 (您的評論需要經過審核才能顯示)

本類常用軟件

主站蜘蛛池模板： 又色又爽又黄的网站 | 黄色三级在线观看 | 青草国产精品久久久久久久久 | 色噜噜狠狠狠狠色综合久 | 午夜欧美精品久久久久久久久 | 宅男午夜影院 | 亚洲日本中文字幕一本 | 免费的黄色影片 | 日韩欧美专区 | 成片免费观看视频在线网 | 天天天天躁天天天天碰 | 日本一区二区三区在线 观看网站 | 久久99综合国产精品亚洲首页 | 国产一区二区不卡 | 本道久久综合88全国最大色 | 日本精品中文字幕在线播放 | h视频免费观看 | 欧美色碰碰碰免费观看长视频 | 免费观看呢日本天堂视频 | 亚洲成综合人影院在院播放 | 日本人成年视频在线观看 | 久久天天干 | 国产乱人乱精一区二区视频密 | 免费大片黄在线观看 | 日本黄大片 在线播放 | 激情小视频在线播放免费 | 久草久草视频 | 黄色一级一级 | 亚洲三级在线看 | 日韩最新视频一区二区三 | 黄 色 免 费 网站在线观看 | 天天操天天摸天天射 | 五月天精品视频播放在线观看 | 关婷哪一级毛片高清免费看 | 色在线影院 | 97干视频| 毛片观看网址 | 国产精品一区二区在线观看 | 午夜影视在线免费观看 | 狂野欧美激情性xxxx | 欧美午夜网 |