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屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

Delphi编程之显示桌面分辨率

Delphi通过进程名获取进程pid函数

Delphi 如何检测你的电脑日期或时间的变化

Delphi copy 从字符串中复制指定范围中的字符

Delphi showmainform := false 失效的解决办法

Delphi idhttp中get 图像链接通过memorystream加载 image控件显示

Delphi 新建一个txt文档函数

Delphi 时钟

Delphi文件操作所涉及的一些函数

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

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