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 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi中adoquery执行错误的捕捉

Delphi api读写ini文件

idmessage读取eml内容报

Delphi 从网址链接中提取域名

indy tidtcpclient 的一个用法上要留意的问题，以及 http

Delphi获取文件大小

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi 使用资源文件

Delphi unigui 路径

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

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