Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Система \ Реестр \ Получаем из реестра количество активных потоков, загруженность процессора и т.д.

Получаем из реестра количество активных потоков, загруженность процессора и т.д.

В реестре есть раздел HKEY_DYN_DATA. Основная информация о системе хранится в ключе PerfStats.

О получении информации,например, о загруженности процессора, необходимо проделать следующие шаги:

Для начала необходимо запустить установленный счётчик в реестре. Это возможно путём считывания значения ключа, отвечающего за нужный параметр системы.

Например

Просто считываем значение ключа 'PerfStatsStartStatKERNELCPUusage' в секции HKEY_DYN_DATA. данное действие запускает счётчик. После этого в ключе 'PerfStatsStatDataKERNELCPUusage' будет храниться значение в процентах о загруженности процессора.

Далее, если добавить считывание загруженности процессора в событие On timer, то мы сможем наблюдать изменение загруженности процессора в динамике.

По завершении, Ваша программа должна остановить счётчик в реестре. Для этого просто считай ключ 'PerfStatsStopStatKERNELCPUusage'.Это остановит счётчик.

Так же в системе есть много других счётчиков. Весь список счётчиков можно посмотреть в ключе PerfStatsStatData, используя редактор реестра.

Представленный ниже исходник получает значения всех счётчиков, расположенных в секции HKEY_DYN_DATA.

unit SystemInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,extctrls;

//Информация о Dialup адаптере
type TDialupAdapterInfo = record
  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;//Это событие вызывается после определённого интервала времени.
    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, 'PerfStatsStartStat',0,KEY_ALL_ACCESS,pkey);
  if res<>0 then
    raise exception.Create('Could not open registry key');
  fstopped:=false;
  // Для Dial Up Адаптера
  RegQueryValueEx(pkey,'Dial-Up AdapterAlignment',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBuffer',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFraming',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterOverrun ',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTimeout',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterCRC',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterRunts',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFramesXmit',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFramesRecvd',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBytesXmit',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBytesRecvd',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesXmit',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesRecvd',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterConnectSpeed',nil,regtype,@tmp,@vsize);

  // Для VCACHE
  RegQueryValueEx(pkey,'VCACHELRUBuffers',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEFailedRecycles',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHERandomRecycles',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHELRURecycles',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEMisses',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEHits',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEcMacPages',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEcMinPages',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VCACHEcCurPages',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBytesXmit',nil,regtype,@tmp,@vsize);

  //Для VFAT

  RegQueryValueEx(pkey,'VFATDirtyData',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VFATBReadsSec',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VFATBWritesSec',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VFATReadsSec',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VFATWritesSec',nil,regtype,@tmp,@vsize);
  //Для VMM

  RegQueryValueEx(pkey,'VMMcpgLockedNoncache',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgCommit',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSharedPages',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMid',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMac',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMin',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcache',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfileDefective',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfileInUse',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfile',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcDiscards',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcPageOuts',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcPageIns',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcInstanceFaults',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcPageFaults',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgOther',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwap',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgLocked',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'VMMcpgFree',nil,regtype,@tmp,@vsize);
  //Для KERNEL
  RegQueryValueEx(pkey,'KERNELCPUUsage',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'KERNELVMs',nil,regtype,@tmp,@vsize);
  RegQueryValueEx(pkey,'KERNELThreads',nil,regtype,@tmp,@vsize);
  RegCloseKey(pkey);
  ftimer.enabled:=true;
end;

procedure tsysinfo.fupdatinginfo(sender:tobject);
var
  res:integer;
begin
  res:=RegOpenKeyEx(HKEY_DYN_DATA, 'PerfStatsStatData',0,KEY_ALL_ACCESS,pkey);
  if res<>0 then
    raise exception.Create('Could not open registry key');
  //Для Dial Up Адаптера
  RegQueryValueEx(pkey,'Dial-Up AdapterAlignment',nil,regtype,@fDialupAdapterInfo.alignment,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBuffer',nil,regtype,@fDialupAdapterInfo.buffer,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFraming',nil,regtype,@fDialupAdapterInfo.framing,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterOverrun ',nil,regtype,@fDialupAdapterInfo.overrun,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTimeout',nil,regtype,@fDialupAdapterInfo.timeout,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterCRC',nil,regtype, @fDialupAdapterInfo.crc,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterRunts',nil,regtype,@fDialupAdapterInfo.runts,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFramesXmit',nil,regtype,@fDialupAdapterInfo.framesxmit,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterFramesRecvd',nil,regtype, @fDialupAdapterInfo.framesrecieved,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBytesXmit',nil,regtype,@fDialupAdapterInfo.bytesxmit,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterBytesRecvd',nil,regtype, @fDialupAdapterInfo.bytesrecieved,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesXmit',nil,regtype, @fDialupAdapterInfo.totalbytesxmit,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesRecvd',nil,regtype, @fDialupAdapterInfo.totalbytesrecieved,@vsize);
  RegQueryValueEx(pkey,'Dial-Up AdapterConnectSpeed',nil,regtype, @fDialupAdapterInfo.connectspeed,@vsize);
  // Для VCACHE
  RegQueryValueEx(pkey,'VCACHELRUBuffers',nil,regtype, @fVCACHEInfo.lrubuffers,@vsize);
  RegQueryValueEx(pkey,'VCACHEFailedRecycles',nil,regtype, @fVCACHEInfo.failedrecycles,@vsize);
  RegQueryValueEx(pkey,'VCACHERandomRecycles',nil,regtype, @fVCACHEInfo.randomrecycles,@vsize);
  RegQueryValueEx(pkey,'VCACHELRURecycles',nil,regtype, @fVCACHEInfo.lrurecycles,@vsize);
  RegQueryValueEx(pkey,'VCACHEMisses',nil,regtype, @fVCACHEInfo.misses,@vsize);
  RegQueryValueEx(pkey,'VCACHEHits',nil,regtype,@fVCACHEInfo.hits,@vsize);
  RegQueryValueEx(pkey,'VCACHEcMacPages',nil,regtype, @fVCACHEInfo.cmacpages,@vsize);
  RegQueryValueEx(pkey,'VCACHEcMinPages',nil,regtype, @fVCACHEInfo.cminpages,@vsize);
  RegQueryValueEx(pkey,'VCACHEcCurPages',nil,regtype, @fVCACHEInfo.ccurpages,@vsize);
  //Для VFAT
  RegQueryValueEx(pkey,'VFATDirtyData',nil,regtype, @ffatinfo.dirtydata,@vsize);
  RegQueryValueEx(pkey,'VFATBReadsSec',nil,regtype, @ffatinfo.breadssec,@vsize);
  RegQueryValueEx(pkey,'VFATBWritesSec',nil,regtype, @ffatinfo.bwritessec,@vsize);
  RegQueryValueEx(pkey,'VFATReadsSec',nil,regtype, @ffatinfo.readssec,@vsize);
  RegQueryValueEx(pkey,'VFATWritesSec',nil,regtype, @ffatinfo.writessec,@vsize);
  //Для VMM
  RegQueryValueEx(pkey,'VMMcpgLockedNoncache',nil,regtype, @fvmminfo.cpglockednoncache,@vsize);
  RegQueryValueEx(pkey,'VMMcpgCommit',nil,regtype, @fvmminfo.cpgcommit,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSharedPages',nil,regtype, @fvmminfo.cpgsharedpages,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMid',nil,regtype, @fvmminfo.cpgdiskcacheMid,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMac',nil,regtype, @fvmminfo.cpgdiskcacheMac,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcacheMin',nil,regtype, @fvmminfo.cpgdiskcacheMin,@vsize);
  RegQueryValueEx(pkey,'VMMcpgDiskcache',nil,regtype, @fvmminfo.cpgdiskcache,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfileDefective',nil,regtype, @fvmminfo.cpgswapfiledefective,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfileInUse',nil,regtype, @fvmminfo.cpgswapfileinuse,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwapfile',nil,regtype, @fvmminfo.cpgswapfile,@vsize);
  RegQueryValueEx(pkey,'VMMcDiscards',nil,regtype, @fvmminfo.cdiscards,@vsize);
  RegQueryValueEx(pkey,'VMMcPageOuts',nil,regtype, @fvmminfo.cpageouts,@vsize);
  RegQueryValueEx(pkey,'VMMcPageIns',nil,regtype, @fvmminfo.cpageins,@vsize);
  RegQueryValueEx(pkey,'VMMcInstanceFaults',nil,regtype, @fvmminfo.cinstancefaults,@vsize);
  RegQueryValueEx(pkey,'VMMcPageFaults',nil,regtype, @fvmminfo.cpagefaults,@vsize);
  RegQueryValueEx(pkey,'VMMcpgOther',nil,regtype, @fvmminfo.cpgother,@vsize);
  RegQueryValueEx(pkey,'VMMcpgSwap',nil,regtype, @fvmminfo.cpgswap,@vsize);
  RegQueryValueEx(pkey,'VMMcpgLocked',nil,regtype, @fvmminfo.cpglocked,@vsize);
  RegQueryValueEx(pkey,'VMMcpgFree',nil,regtype, @fvmminfo.cpgfree,@vsize);
  //Для KERNEL
  RegQueryValueEx(pkey,'KERNELCPUUsage',nil,regtype, @fkernelinfo.cpuusagepcnt,@vsize);
  RegQueryValueEx(pkey,'KERNELVMs',nil,regtype,@fkernelinfo.numvms,@vsize);
  RegQueryValueEx(pkey,'KERNELThreads',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, 'PerfStatsStopStat',0,KEY_ALL_ACCESS,pkey);
  if not fstopped then
  begin
    if res<>0 then
      raise exception.Create('Could not open registry key');
    //Для Dial Up Адаптера
    RegQueryValueEx(pkey,'Dial-Up AdapterAlignment',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterBuffer',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterFraming',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterOverrun ',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterTimeout',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterCRC',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterRunts',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterFramesXmit',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterFramesRecvd',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterBytesXmit',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterBytesRecvd',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesXmit',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterTotalBytesRecvd',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterConnectSpeed',nil,regtype,@tmp,@vsize);

    // Для VCACHE
    RegQueryValueEx(pkey,'VCACHELRUBuffers',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEFailedRecycles',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHERandomRecycles',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHELRURecycles',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEMisses',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEHits',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEcMacPages',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEcMinPages',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VCACHEcCurPages',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'Dial-Up AdapterBytesXmit',nil,regtype,@tmp,@vsize);

    //Для VFAT
    RegQueryValueEx(pkey,'VFATDirtyData',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VFATBReadsSec',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VFATBWritesSec',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VFATReadsSec',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VFATWritesSec',nil,regtype,@tmp,@vsize);

    //Для VMM
    RegQueryValueEx(pkey,'VMMcpgLockedNoncache',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgCommit',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgSharedPages',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgDiskcacheMid',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgDiskcacheMac',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgDiskcacheMin',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgDiskcache',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgSwapfileDefective',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgSwapfileInUse',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgSwapfile',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcDiscards',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcPageOuts',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcPageIns',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcInstanceFaults',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcPageFaults',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgOther',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgSwap',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgLocked',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'VMMcpgFree',nil,regtype,@tmp,@vsize);

    //Для KERNEL
    RegQueryValueEx(pkey,'KERNELCPUUsage',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'KERNELVMs',nil,regtype,@tmp,@vsize);
    RegQueryValueEx(pkey,'KERNELThreads',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;

end.

Скопируйте это в файл .pas и проинсталлируйте его.

Название: Получаем из реестра количество активных потоков, загруженность процессора и т.д.
Дата публикации: 2004-09-09 (2617 Прочтено)

 
 

 

Page generation 0.063 seconds