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 调用cmd命令行并取得返回结果

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi 如何确定活动桌面是否已启用

Delphi tmemo 可以显示、编辑多行文本

Delphi 字符串加单引号

Delphi获取java时间戳

Delphi xe开发 android 开机自动启动

Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除

Delphi中inputbox 和inputquery 函数的使用

剪贴板单元 clipboards.pas

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...