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

東坡下載:內容最豐富最安全的下載站!

首頁編程開發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精品 | 奇米伊人 | www.欧美成| 最近免费字幕中文大全视频 | 99精品全国免费观看视频.. | 国产在线精品观看一区 | 福利视频网站 | 九九精品免费 | 欧美成人免费草草影院视频 | 五月天中文在线 | 黄色三级毛片视频 | 日韩欧美精品在线观看 | 色噜噜狠狠成人网 | 国产色丁香久久综合 | 色天天综合色天天天天看大 | 亚洲欧美日韩国产精品影院 | 久青草国产在视频在线观看 | 天天躁夜夜躁狠狠躁 | 国产亚洲精品hd网站 | 曰本a| 亚洲精品线在线观看 | 国产精品久久久久久免费 | h在线播放| 天天摸天天爽天天碰天天弄 | 激情午夜影院 | 香港三级日本三级三级人妇99 | 色综合天天综合网看在线影院 | 日批视频网址免费观看 | 国产欧美在线观看不卡 | 夭天曰天天躁天天摸在线观看 | 国产在线日韩在线 | 欧美日韩一日韩一线不卡 | 国产成人综合在线视频 | 一区在线免费观看 | 欧美性受xxxx喷水性欧洲 | 国产视频1区 | 亚洲欧美日韩第一页 | 国产不卡一区二区视频免费 | 小明在看看永久免费平台 | 久草手机视频在线 |