zoukankan      html  css  js  c++  java
  • 取当前进程内存使用量

    使用单元:uses Psapi;

    procedure TForm1.Button10Click(Sender: TObject);
    var
    b: Boolean;
    pmc: TProcessMemoryCounters;
    h: THandle;
    I, J: Integer;
    begin
    h := GetCurrentProcess;
    b := GetProcessMemoryInfo(h, @pmc, SizeOf(TProcessMemoryCounters));
    if b then
    begin
    self.Memo1.Lines.Add(FormatDateTime('hh:mm:ss.zzz ', Now) + IntToStr(pmc.WorkingSetSize));
    end;


    // for I := 1 to 100 do
    // begin
    // SetLength(DataInfo, I);
    //// for J := 0 to I - 1 do
    //// DataInfo[J].ID := J;
    // end;
    //
    // for I := 100 downto 1 do
    // begin
    // SetLength(DataInfo, I);
    //// for J := 0 to I - 1 do
    //// DataInfo[J].ID := J;
    // end;
    b := GetProcessMemoryInfo(h, @pmc, SizeOf(TProcessMemoryCounters));
    if b then
    begin
    self.Memo1.Lines.Add(FormatDateTime('hh:mm:ss.zzz ', Now) + IntToStr(pmc.WorkingSetSize));
    end;
    end;

  • 相关阅读:
    内置方法(item系列、__str__方法、__del__方法)
    POJ3436
    CF551B
    HDU1588
    HDU3117
    CF834D
    CF832D
    CF832C
    POJ1930
    POJ3666
  • 原文地址:https://www.cnblogs.com/FKdelphi/p/8989720.html
Copyright © 2011-2022 走看看