Delphi GetProcessMemoryInfo获取进程占用内存大小

本文整理自网络，侵删。

 

uses
psAPI;


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);
begin
ShowMemUsage(8512);

end;
 

相关阅读 >>

Delphi 检查输入的ip地址串是否合法

Delphi append 追加内容到文件中

android开发-px和dip以及sp的区别

Delphi stringtowidestring widestringtostring

Delphi xe5 给edit增加自定义按钮

Delphi 在内存中直接运行exe类型的资源文件

Delphi button 实现下拉列表

Delphi firedac 下的 sqlite [1] - 前言

Delphi android路径 tpath 文件路径，文件管理

Delphi windows消息大全

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi GetProcessMemoryInfo获取进程占用内存大小