如何知道进程使用了多少内存

时间:2010-03-05 18:49:50  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:T systems (WinNT, Win2000, WinXP)uses psAPI;procedure TForm1.Button1Click(Sender: TObject);varpmc: PPROCESS_MEMORY_COUNTERS;cb: Integer;begin    cb := SizeOf(_PROCESS_MEMORY_COUNTERS);    GetMem(pmc, cb); &nbs...
  正文:参见如下代码
    


// Works only on Windows NT systems (WinNT, Win2000, WinXP)

uses photoshop/ target=_blank class=infotextkey>psAPI;

procedure TForm1.Button1Click(Sender: TObject);

var

pmc: PPROCESS_MEMORY_COUNTERS;

cb: Integer;

begin
  
  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  
  GetMem(pmc, cb);
  
  pmc^.cb := cb;
  
  if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
  
  Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'
  
  else
  
  Label1.Caption := 'Unable to retrieve memory usage structure';
  
  FreeMem(pmc);
  
end;
"如何知道进程使用了多少内存"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13074.html


关键字:

关于《如何知道进程使用了多少内存》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td