全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1887
推到 Plurk!
推到 Facebook!

如何取得在 "工作管理員" 中的各個資訊

尚未結案
Akqj1098
一般會員


發表:14
回覆:60
積分:14
註冊:2002-05-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-13 08:48:18 IP:203.66.xxx.xxx 未訂閱
想請教一下各位先進 如何取得在 "工作管理員" 中的各個資訊 ex: 總計 控制碼、引線、處理程序 確認負載 總共、限制、尖峰 實體記憶體 總共、可用、系統快取記憶體 核心記憶體 總共、已分頁、未分頁
allenchan
資深會員


發表:10
回覆:306
積分:283
註冊:2004-01-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-13 23:20:50 IP:61.62.xxx.xxx 未訂閱
這有個 Sample: http://dce.felk.cvut.cz/mirrors/TorryD/psapi.zip
Akqj1098
一般會員


發表:14
回覆:60
積分:14
註冊:2002-05-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-20 17:21:20 IP:211.76.xxx.xxx 未訂閱
真是抱歉 allenchan 大大  我還是沒有找到關於    確認負載 總共、限制、尖峰 實體記憶體    這方面的範例耶 可以請您再明示嗎    
引言: 這有個 Sample: http://dce.felk.cvut.cz/mirrors/TorryD/psapi.zip
jbinfo
一般會員


發表:9
回覆:25
積分:16
註冊:2004-05-10

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-28 00:09:39 IP:61.60.xxx.xxx 未訂閱
不知道這對你有沒有幫助,下面有實體記憶體(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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-28 09:32:28 IP:203.66.xxx.xxx 未訂閱
謝謝您的回答  您提供的資訊,我也陸陸續續的找到  但還有一個資訊,我最想要,卻也最難找  希望您能持續幫忙我     我要找的資訊最主要的就是  "工作管理員" 中的 "確認負載"  的 "總共"  其實也就是 "記憶體的使用量"  (工作管理員中,它跟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;    
祝好運!!
< >< >< >< >
系統時間:2024-11-22 5:20:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!