如何判斷電腦本身ㄉ記憶體 |
|
答題得分者是：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: 總計 控制碼、引線、處理程序 確認負載 總共、限制、尖峰 實體記憶體 總共、可用、系統快取記憶體 核心記憶體 總共、已分頁、未分頁 |
發表時間：2003-01-29 09:37:42
IP:61.63.xxx.xxx 未訂閱
系統時間：2024-05-14 5:57:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |