如何判斷電腦本身ㄉ記憶體 |
答題得分者是:banson1716
|
delphi
初階會員 發表:52 回覆:64 積分:38 註冊:2002-05-21 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi Delphi 您好:
procedure TForm1.Button1Click(Sender: TObject); var memory: TMemoryStatus; begin memory.dwLength := SizeOf(memory); GlobalMemoryStatus(memory); ShowMessage('Total memory: ' IntToStr(memory.dwTotalPhys) ' Bytes'); ShowMessage('Free memory: ' IntToStr(memory.dwAvailPhys) ' Bytes'); end;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
banson1716
高階會員 發表:55 回覆:182 積分:167 註冊:2002-04-14 發送簡訊給我 |
//實際記憶體及可用記憶體
procedure TForm1.FormCreate(Sender: TObject);
var
MemoryStatus: TMemoryStatus;
begin
with MemoryStatus do
begin
dwLength := SizeOf( TMemoryStatus );
Windows.GlobalMemoryStatus( MemoryStatus );
PhysicalMemory.Caption := Format('實際記憶體 %d K Bytes',
[dwTotalPhys div 1024]);
AvailMemory.Caption := Format('可用記憶體 %d K Bytes',
[dwAvailPhys div 1024]);
end;
end;
|
delphi
初階會員 發表:52 回覆:64 積分:38 註冊:2002-05-21 發送簡訊給我 |
|
Akqj1098
一般會員 發表:14 回覆:60 積分:14 註冊:2002-05-17 發送簡訊給我 |
引言: //實際記憶體及可用記憶體 procedure TForm1.FormCreate(Sender: TObject); var MemoryStatus: TMemoryStatus; begin with MemoryStatus do begin dwLength := SizeOf( TMemoryStatus ); Windows.GlobalMemoryStatus( MemoryStatus ); PhysicalMemory.Caption := Format('實際記憶體 %d K Bytes', [dwTotalPhys div 1024]); AvailMemory.Caption := Format('可用記憶體 %d K Bytes', [dwAvailPhys div 1024]); end; end;想請教一下各位先進 如何取得在 "工作管理員" 中的各個資訊 ex: 總計 控制碼、引線、處理程序 確認負載 總共、限制、尖峰 實體記憶體 總共、可用、系統快取記憶體 核心記憶體 總共、已分頁、未分頁 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |