如何得到系统的负荷情况和某一进程占用的cpu时间(100分)

johnsun · 2001-09-30

我想当系统中某一进程的cpu时间>90时就kill它 急，请不吝赐教！

ggqq · 2001-09-30

翻翻API函数吧，象WINDOWS任务管理器那样的功能应该时可以做的。

johnsun · 2001-09-30

我知道可以实现的，但我要的时具体的函数及用法！！

pcexplorer · 2001-09-30

呆非4 · 2001-09-30

在注册表是有

johnsun · 2001-10-15

没人知道吗？

DragonPC_??? · 2001-11-08

http://www.delphibbs.com/delphibbs/dispq.asp?lid=565450

tseug · 2001-11-09

转一个 问题提出/摘要: 从注册表获取如活动进程数、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

dword;      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     begin      if res<>0 then       raise exception.Create('Could not open registry key');      //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:=false;      fstopped:=true;     end;   end;     procedure tsysinfo.fsetupdateinterval(aupdateinterval:integer);   begin   if (ftimer<>nil) and(aupdateinterval>0) then     begin     ftimer.Interval:=aupdateinterval;     fupdateinterval:=aupdateinterval;   end;   if (ftimer<>nil) and(aupdateinterval=0) then   begin     ftimer.Interval:=500;     fupdateinterval:=500;   end;     end;     destructor tsysinfo.Destroy;   begin   StopRecievingInfo;   ftimer.Destroy;   inherited;   end;     procedure Register;   begin     RegisterComponents('Samples', [TSysInfo]);   end;

johnsun · 2001-11-15

多人接受答案了。

如何得到系统的负荷情况和某一进程占用的cpu时间(100分)

johnsun

Unregistered / Unconfirmed

ggqq

Unregistered / Unconfirmed

johnsun

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

呆非4

Unregistered / Unconfirmed

johnsun

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

johnsun

Unregistered / Unconfirmed

Similar threads