delphi取得进程与线程的CPU使用率

就是这个类了,取得进行与线程的CPU使用率,也是从国外技术站上学来的

 

 

unit bCPUUsage;

interface

uses
  Windows, SysUtils, MMSystem;

const
  bWaitTime = 700;

type
  TCPUUsage = class
  private
    { Private declarations }
    FdtStartByThread: Int64;
    FdtCPUPrevByThread: Int64;
    FdtStartByProcess: Int64;
    FdtCPUPrevByProcess: Int64;
  public
    { Public declarations }
    constructor Create;
    destructor Destroy; override;
    function GetThreadCPUUsage: Int64;
    function ThreadCPUUsage: Int64;
    function GetProcessCPUUsage: Int64;
    function ProcessCPUUsage: Int64;
  end;

implementation

//类初始化
constructor TCPUUsage.Create;
begin
  FdtStartByThread := 0;
  FdtCPUPrevByThread := 0;
  FdtStartByProcess := 0;
  FdtCPUPrevByProcess := 0;
  timeBeginPeriod(1);
end;

//类注销<