就是这个类了,取得进行与线程的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;
//类注销<