获取进程的CPU利用率

Tags: /超级猛料/OS.操作系统/Process.进程/ Date Created:

cpu 的资源占用状况被记载在注册表的项目HKEY_DYN_DATA\PerfStats\StatData分支"KERNEL\CPUUsage"中,通过周期性的读取该键的键值,并且将参数传递到我们自己制作的监视器界面中,使之相应的变化,这就可以即时反映出cpu的使用状况了。

在注册表中，有一个分支叫HKEY_DYN_DATA，大量的系统信息都保存在此分支下的PerfStats主键中。

为了获取如CPU的使用率等信息，你需要做三件事：

第一步是开始选择的计数器，可以通过读取相应的注册表主键完成。

例如：

如果我们想知道CPU的占用率，你可以读HKEY_DYN_DATA的这个主键

'PerfStats\StartStat\KERNEL\CPUusage'

这一步是开始计数器

下一步是是读取'PerfStats\StatData\KERNEL\CPUusage'的值，它的值给出了当前CPU的使用率。如果我们将代码放在一个Timer的事件中，我们就可以看到动态的变化了。

最后一步是停止计数器，通过读取注册表的'PerfStats\StopStat\KERNEL\CPUusage'键完成。

除CPU的占用率外，这里还有很多其它的计数器。你可以打开用注册表编辑器打开PerfStats\StatData键，可以看到全部的列表。

我生成了一个构件来获取注册表HKEY_DYN_DATA分支提供的所有计数的值。以下是代码：

unit SystemInfo;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,extctrls;

type TDialupAdapterInfo = record //Information of Dialup adapter

alignment:dword;

buffer:dword;

bytesrecieved:dword;

bytesXmit:dword;

ConnectSpeed:dword;

CRC:dword;

framesrecieved:dword;

FramesXmit:dword;

Framing:dword;

runts:dword;

Overrun:dword;

timeout:dword;

totalbytesrecieved:dword;

totalbytesXmit:dword;

end;

type TKernelInfo = record

CpuUsagePcnt:dword;

Numthreads:dword;

NumVMS:dword;

end;

type TVCACHEInfo = record

ccurpages:dword;

cMacPages:dword;

cminpages:dword;

FailedRecycles:dword;

Hits:dword;

LRUBuffers:dword;

LRURecycles:dword;

Misses:dword;

RandomRecycles:dword;

end;

type TFATInfo = record

BreadsSec:dword;

BwritesSec:dword;

Dirtydata:dword;

ReadsSec:dword;

WritesSec:dword;

end;

type TVMMInfo = record

CDiscards:dword;

CInstancefaults:dword;

CPageFaults:dword;

cPageIns:dword;

cPageOuts:dword;

cpgCommit:dword;

cpgDiskCache:dword;

cpgDiskCacheMac:dword;

cpgDiskCacheMid:dword;

cpgDiskCacheMin:dword;

cpgfree:dword;

cpglocked:dword;

cpglockedNoncache:dword;

cpgother:dword;

cpgsharedpages:dword;

cpgswap:dword;

cpgswapfile&:dword;

cpgswapfiledefective:dword;

cpgswapfileinuse:dword;

end;

type

TSysInfo = class(TComponent)

private

fDialupAdapterInfo:TDialupAdapterInfo;

fKernelInfo:TKernelInfo;

fVCACHEInfo:TVCACHEInfo;

fFATInfo:TFATInfo;

fVMMInfo:TVMMInfo;

ftimer:TTimer;

fupdateinterval:integer;

tmp:dword;

vsize:dword;

pkey:hkey;

regtype:pdword;

fstopped:boolean;

procedure fupdatinginfo(sender:tobject);

procedure fsetupdateinterval(aupdateinterval:integer);

protected

fsysInfoChanged:TNotifyEvent;

public

constructor Create(Aowner:Tcomponent);override;

destructor Destroy;override;

property DialupAdapterInfo: TDialupAdapterInfo read fDialupAdapterInfo;

property KernelInfo: TKernelInfo read fKernelInfo;

property VCACHEInfo: TVCACHEInfo read fVCACHEInfo;

property FATInfo: TFATInfo read fFATInfo;

property VMMInfo: TVMMInfo read fVMMInfo;

procedure StartRecievingInfo;

procedure StopRecievingInfo;

published

property SysInfoChanged:TNotifyEvent read fsysInfoChanged write

fsysInfoChanged;//this event is called after a specific interval.

property UpdateInterval:integer read fupdateInterval write

fsetupdateinterval default 5000;

end;

procedure Register;

implementation

constructor TSysInfo.Create(Aowner:Tcomponent);

begin

inherited;

ftimer:=ttimer.Create(self);

ftimer.enabled:=false;

ftimer.OnTimer:=fupdatinginfo;

vsize:=4;

fstopped:=true;

end;

procedure TSysInfo.startrecievingInfo;

var

res:integer;

begin

res:=RegOpenKeyEx(HKEY_DYN_DATA,'PerfStats\StartStat',0,KEY_ALL_ACCESS,pkey);

if res<>0 then

raise exception.Create('Could not open registry key');

fstopped:=false;

// For Dial Up Adapter

RegQueryvalueEx(pkey,'Dial-Up Adapter\Alignment',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Buffer',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Framing',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Overrun ',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Timeout',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\CRC',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Runts',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\FramesXmit',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\FramesRecvd',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\BytesXmit',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\BytesRecvd',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\TotalBytesXmit',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\TotalBytesRecvd',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\ConnectSpeed',nil,regtype,@tmp,@vsize);

// For VCACHE

RegQueryvalueEx(pkey,'VCACHE\LRUBuffers',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\FailedRecycles',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\RandomRecycles',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\LRURecycles',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\Misses',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\Hits',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cMacPages',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cMinPages',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cCurPages',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\BytesXmit',nil,regtype,@tmp,@vsize);

//For VFAT

RegQueryvalueEx(pkey,'VFAT\DirtyData',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VFAT\BReadsSec',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VFAT\BWritesSec',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VFAT\ReadsSec',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VFAT\WritesSec',nil,regtype,@tmp,@vsize);

//For VMM

RegQueryvalueEx(pkey,'VMM\cpgLockedNoncache',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgCommit',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSharedPages',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMid',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMac',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMin',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcache',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfileDefective',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfileInUse',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfile',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cDiscards',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageOuts',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageIns',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cInstanceFaults',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageFaults',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgOther',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwap',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgLocked',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgFree',nil,regtype,@tmp,@vsize);

//For KERNEL

RegQueryvalueEx(pkey,'KERNEL\CPUUsage',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'KERNEL\VMs',nil,regtype,@tmp,@vsize);

RegQueryvalueEx(pkey,'KERNEL\Threads',nil,regtype,@tmp,@vsize);

RegCloseKey(pkey);

ftimer.enabled:=true;

end;

procedure tsysinfo.fupdatinginfo(sender:tobject);

var

res:integer;

begin

res:=RegOpenKeyEx(HKEY_DYN_DATA,'PerfStats\StatData',0,KEY_ALL_ACCESS,pkey);

if res<>0 then

raise exception.Create('Could not open registry key');

//For Dial Up Adapter

RegQueryvalueEx(pkey,'Dial-Up Adapter\Alignment',nil,regtype,@fDialupAdapterInfo.alignment,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Buffer',nil,regtype,@fDialupAdapterInfo.buffer,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Framing',nil,regtype,@fDialupAdapterInfo.framing,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Overrun ',nil,regtype,@fDialupAdapterInfo.overrun,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Timeout',nil,regtype,@fDialupAdapterInfo.timeout,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\CRC',nil,regtype,@fDialupAdapterInfo.crc,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\Runts',nil,regtype,@fDialupAdapterInfo.runts,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\FramesXmit',nil,regtype,@fDialupAdapterInfo.framesxmit,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\FramesRecvd',nil,regtype,@fDialupAdapterInfo.framesrecieved,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\BytesXmit',nil,regtype,@fDialupAdapterInfo.bytesxmit,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\BytesRecvd',nil,regtype,@fDialupAdapterInfo.bytesrecieved,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\TotalBytesXmit',nil,regtype,@fDialupAdapterInfo.totalbytesxmit,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\TotalBytesRecvd',nil,regtype,@fDialupAdapterInfo.totalbytesrecieved,@vsize);

RegQueryvalueEx(pkey,'Dial-Up Adapter\ConnectSpeed',nil,regtype,@fDialupAdapterInfo.connectspeed,@vsize);

// For VCACHE

RegQueryvalueEx(pkey,'VCACHE\LRUBuffers',nil,regtype,@fVCACHEInfo.lrubuffers,@vsize);

RegQueryvalueEx(pkey,'VCACHE\FailedRecycles',nil,regtype,@fVCACHEInfo.failedrecycles,@vsize);

RegQueryvalueEx(pkey,'VCACHE\RandomRecycles',nil,regtype,@fVCACHEInfo.randomrecycles,@vsize);

RegQueryvalueEx(pkey,'VCACHE\LRURecycles',nil,regtype,@fVCACHEInfo.lrurecycles,@vsize);

RegQueryvalueEx(pkey,'VCACHE\Misses',nil,regtype,@fVCACHEInfo.misses,@vsize);

RegQueryvalueEx(pkey,'VCACHE\Hits',nil,regtype,@fVCACHEInfo.hits,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cMacPages',nil,regtype,@fVCACHEInfo.cmacpages,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cMinPages',nil,regtype,@fVCACHEInfo.cminpages,@vsize);

RegQueryvalueEx(pkey,'VCACHE\cCurPages',nil,regtype,@fVCACHEInfo.ccurpages,@vsize);

//For VFAT

RegQueryvalueEx(pkey,'VFAT\DirtyData',nil,regtype,@ffatinfo.dirtydata,@vsize);

RegQueryvalueEx(pkey,'VFAT\BReadsSec',nil,regtype,@ffatinfo.breadssec,@vsize);

RegQueryvalueEx(pkey,'VFAT\BWritesSec',nil,regtype,@ffatinfo.bwritessec,@vsize);

RegQueryvalueEx(pkey,'VFAT\ReadsSec',nil,regtype,@ffatinfo.readssec,@vsize);

RegQueryvalueEx(pkey,'VFAT\WritesSec',nil,regtype,@ffatinfo.writessec,@vsize);

//For VMM

RegQueryvalueEx(pkey,'VMM\cpgLockedNoncache',nil,regtype,@fvmminfo.cpglockednoncache,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgCommit',nil,regtype,@fvmminfo.cpgcommit,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSharedPages',nil,regtype,@fvmminfo.cpgsharedpages,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMid',nil,regtype,@fvmminfo.cpgdiskcacheMid,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMac',nil,regtype,@fvmminfo.cpgdiskcacheMac,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcacheMin',nil,regtype,@fvmminfo.cpgdiskcacheMin,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgDiskcache',nil,regtype,@fvmminfo.cpgdiskcache,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfileDefective',nil,regtype,@fvmminfo.cpgswapfiledefective,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfileInUse',nil,regtype,@fvmminfo.cpgswapfileinuse,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwapfile',nil,regtype,@fvmminfo.cpgswapfile,@vsize);

RegQueryvalueEx(pkey,'VMM\cDiscards',nil,regtype,@fvmminfo.cdiscards,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageOuts',nil,regtype,@fvmminfo.cpageouts,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageIns',nil,regtype,@fvmminfo.cpageins,@vsize);

RegQueryvalueEx(pkey,'VMM\cInstanceFaults',nil,regtype,@fvmminfo.cinstancefaults,@vsize);

RegQueryvalueEx(pkey,'VMM\cPageFaults',nil,regtype,@fvmminfo.cpagefaults,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgOther',nil,regtype,@fvmminfo.cpgother,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgSwap',nil,regtype,@fvmminfo.cpgswap,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgLocked',nil,regtype,@fvmminfo.cpglocked,@vsize);

RegQueryvalueEx(pkey,'VMM\cpgFree',nil,regtype,@fvmminfo.cpgfree,@vsize);

//For KERNEL

RegQueryvalueEx(pkey,'KERNEL\CPUUsage',nil,regtype,@fkernelinfo.cpuusagepcnt,@vsize);

RegQueryvalueEx(pkey,'KERNEL\VMs',nil,regtype,@fkernelinfo.numvms,@vsize);

RegQueryvalueEx(pkey,'KERNEL\Threads',nil,regtype,@fkernelinfo.numThreads,@vsize);

RegCloseKey(pkey);

if assigned(SysInfoChanged) then

SysInfoChanged(self);

end;

procedure TSysInfo.stoprecievingInfo;

var

res:integer;

begin

res:=RegOpenKeyEx(HKEY_DYN_DATA,'PerfStats\StopStat',0,KEY_ALL_ACCESS,pkey);

if not fstopped then