如何取得在 "工作管理員" 中的各個資訊 |
尚未結案
|
Akqj1098
一般會員 發表:14 回覆:60 積分:14 註冊:2002-05-17 發送簡訊給我 |
|
allenchan
資深會員 發表:10 回覆:306 積分:283 註冊:2004-01-06 發送簡訊給我 |
|
Akqj1098
一般會員 發表:14 回覆:60 積分:14 註冊:2002-05-17 發送簡訊給我 |
|
jbinfo
一般會員 發表:9 回覆:25 積分:16 註冊:2004-05-10 發送簡訊給我 |
不知道這對你有沒有幫助,下面有實體記憶體(physical),分頁(paging)及虛擬(virtual)
procedure Tfm_Fram.Timer1Timer(Sender: TObject); var GlobalMemoryInfo:TMemoryStatus; begin GlobalMemoryInfo.dwLength :=SizeOf(GlobalMemoryInfo); GlobalMemoryStatus(GlobalMemoryInfo); Label1.Caption :='Record Structure Size: ' IntToStr(GlobalMemoryInfo.dwLength ) 'byte'; Label2.Caption :='Current Memory Load:' IntToStr(GlobalMemoryInfo.dwMemoryLoad ) '%'; Label3.Caption :='Total physical memory:' Format('%.0n',[GlobalMemoryInfo.dwTotalPhys/1]) ' bytes'; Label4.Caption :='Total available physical memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailPhys/1]) ' bytes'; Label5.Caption :='Total paging file size: ' Format('%.0n',[GlobalMemoryInfo.dwTotalPageFile/1]) ' bytes'; Label6.Caption :='Total available paging file memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailPageFile/1]) ' bytes'; Label7.Caption :='Total virtual memory: ' Format('%.0n',[GlobalMemoryInfo.dwTotalVirtual/1]) ' bytes'; Label8.Caption :='Total available virtual memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailVirtual/1]) ' bytes'; end;祝好運!! |
Akqj1098
一般會員 發表:14 回覆:60 積分:14 註冊:2002-05-17 發送簡訊給我 |
謝謝您的回答
您提供的資訊,我也陸陸續續的找到
但還有一個資訊,我最想要,卻也最難找
希望您能持續幫忙我 我要找的資訊最主要的就是
"工作管理員" 中的 "確認負載" 的 "總共"
其實也就是 "記憶體的使用量"
(工作管理員中,它跟CPU的使用都會用圖示表示的那個部分) 感恩感恩
引言: 不知道這對你有沒有幫助,下面有實體記憶體(physical),分頁(paging)及虛擬(virtual)< >< >< >< >procedure Tfm_Fram.Timer1Timer(Sender: TObject); var GlobalMemoryInfo:TMemoryStatus; begin GlobalMemoryInfo.dwLength :=SizeOf(GlobalMemoryInfo); GlobalMemoryStatus(GlobalMemoryInfo); Label1.Caption :='Record Structure Size: ' IntToStr(GlobalMemoryInfo.dwLength ) 'byte'; Label2.Caption :='Current Memory Load:' IntToStr(GlobalMemoryInfo.dwMemoryLoad ) '%'; Label3.Caption :='Total physical memory:' Format('%.0n',[GlobalMemoryInfo.dwTotalPhys/1]) ' bytes'; Label4.Caption :='Total available physical memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailPhys/1]) ' bytes'; Label5.Caption :='Total paging file size: ' Format('%.0n',[GlobalMemoryInfo.dwTotalPageFile/1]) ' bytes'; Label6.Caption :='Total available paging file memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailPageFile/1]) ' bytes'; Label7.Caption :='Total virtual memory: ' Format('%.0n',[GlobalMemoryInfo.dwTotalVirtual/1]) ' bytes'; Label8.Caption :='Total available virtual memory: ' Format('%.0n',[GlobalMemoryInfo.dwAvailVirtual/1]) ' bytes'; end;祝好運!! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |