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

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

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

本類常用軟件

主站蜘蛛池模板： 久久网色 | 美日韩一区二区 | 青草草视频在线观看 | 8x成人永久在线观看视频 | 亚洲深夜福利视频 | 欧美人成在线观看 | 国产91精品一区 | 亚州色拍拍拍 | 美日韩在线视频 | 国产高清精品自在久久 | 国产欧美亚洲精品第一页久久肉 | 成人无遮挡肉动漫视频免费 | 欧美在线观看一区二区 | 日本污网站 | 成年人免费看片 | 99精品全国免费7观看视频 | 涩涩网站在线看 | 影音先锋2020色资源网 | 色视频国产 | 国产毛片在线 | 国内欧美一区二区三区 | 成人黄色在线观看 | 一级片在线免费看 | 全黄一级片 | 丰满毛片 | 波多野结衣一区二区三区四区 | free性欧美高清另类 | 国产黑丝在线观看 | 草草影院欧美 | 丝袜美女足淫美足美脚网站 | 精品播放 | 免费黄色三级网站 | 日日噜噜夜夜狠狠va视频 | gav成人 | 五月婷婷激情综合 | 国产精品欧美一区二区三区不卡 | 亚洲性夜夜综合久久麻豆 | 国产精品欧美亚洲韩国日本99 | 黄色一极毛片 | 久久狠色噜噜狠狠狠狠97 | 亚洲一区二区三区首页 |