本文整理自网络,侵删。
usespsAPI;
procedure ShowMemUsage(PID:Cardinal);var memCounters:_PROCESS_MEMORY_COUNTERS; h:cardinal;begin ZeroMemory(@memCounters,sizeof(memCounters)); h:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID); if h<>0 then begin memCounters.cb := sizeof(memCounters); if not GetProcessMemoryInfo(h, @memCounters, sizeof(memCounters)) then showmessage('Coulnd''t get memory info!') else showmessage('Current : '+inttostr(memCounters.WorkingSetSize shr 10)+' K'#13#10+'Peak : '+inttostr(memCounters.PeakWorkingSetSize shr 10 )+' K'#13#10+'Pagefile : '+inttostr(memCounters.PageFaultCount shr 10)+' K'); closehandle(h); end;end;
procedure TForm1.FormCreate(Sender: TObject);beginShowMemUsage(8512);
end;
相关阅读 >>
Delphi getprocessidentity 获取当前登录状态的管理员
Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除
Delphi中inputbox 和inputquery 函数的使用
更多相关阅读请进入《Delphi》频道 >>