DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: taolimanyuan
今日帖子: 2
在线用户: 3
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 chencong5025 (Nicosoft) ▲▲△△△ -
注册会员
2019/7/30 13:24:55
标题:
求助 获取CPU使用率[全局] 获取CPU温度 浏览:389
加入我的收藏
楼主: 不使用WMI 获取CPU使用率以及温度。

= =#百毒+谷狗 翻了好几轮都没有靠谱的方案

MiTeC System Information Component Suite
翻到这个功能到时挺全,但是依旧没有温度的读取方案。

不知道大家可有好的方案么?
----------------------------------------------
-
作者:
男 star5 (星五) ★☆☆☆☆ -
盒子活跃会员
2019/7/30 17:42:28
1楼: 获取cpu使用率和进程cpu使用率,问题不大,温度还真从来没取过。。。

网上找了一段,你试试?

 type
    TBus           = (ISA, SMBus, VIA686ABus, DirectIO);
    TSMB           = (SMBIntel, SMBAMD, SMBALi);
  type
    TSharedData = Record
      STemperature       : array [1..10]  of Integer;  
      SVoltage           : array [1..10]  of Real;     
      SFan               : array [1..10]  of Integer;   
      SMHZ               : Integer;                     
      SNrCPU             : Byte;                        
      SCPUUsage          : array [1..4]     of Real;    
    end;
    TSharedInfo = Record
      SMBM_Version       : array [0..10]  of Char;      
      SSMB_Base          : Word;                        
      SSMB_Type          : TBus;                        
      SSMB_Code          : TSMB;                        
      SSMB_Addr          : Byte;                        
      SSMB_Name          : array [0..40]  of Char;      
      SISA_Base          : Word;                        
      SChipType          : Integer;                     
      SVoltageSubType    : Byte;                        
    end;
    TSharedHL = Record                                  
      STempC             : array [1..10]  of LongInt;   
      STempA             : array [1..10]  of Extended;  
      STempL             : array [1..10]  of Real;      
      STempH             : array [1..10]  of Real;      
      SVoltC             : array [1..10]  of LongInt;   
      SVoltA             : array [1..10]  of Extended;  
      SVoltL             : array [1..10]  of Real;      
      SVoltH             : array [1..10]  of Real;      
      SFanC              : array [1..10]  of LongInt;   
      SFanA              : array [1..10]  of Extended;  
      SFanL              : array [1..10]  of Real;      
      SFanH              : array [1..10]  of Real;      
      SStart             : array [0..40]  of Char;      
      SCurrent           : array [0..40]  of Char;      
      SCPUC              : array [1..4]   of LongInt;   
      SCPUA              : array [1..4]   of Extended;  
      SCPUL              : array [1..4]   of Real;      
      SCPUH              : array [1..4]   of Real;      
    end;
    TSharedName = Record
      STempName       : array [1..10] of array [0..10] of Char;  
      SVoltName       : array [1..10] of array [0..10] of Char;  
      SFanName        : array [1..10] of array [0..10] of Char;  
      SCPUName        : array [0..10] of Char;                   
      SCPUUSageName   : array [0..10] of Char;                    
    end;
  PSharedData = ^TSharedData;
  PSharedInfo = ^TSharedInfo;
  PSharedHL   = ^TSharedHL;
  PSharedName = ^TSharedName;
var
  CPUMhz            : Integer;
  CPUNr             : Byte;
  Temperature       : array [1..10]  of Integer
  Voltage           : array [1..10]  of Real;
  Fan               : array [1..10]  of Integer;
  CPU               : array [1..4]   of Real;
  UsedBus           : TBus;
  IsaBase           : Word;
  SMB_BASE          : Word;
  SMBusType         : TSMB;
  SMB_NAME          : String;
  SMBChipAddress    : Byte;
  ChipType          : Integer;
  TempL             : array[1..10] of Real;
  TempH             : array[1..10] of Real;
  TempA             : array[1..10] of Extended;
  TempC             : array[1..10] of LongInt;
  VoltL             : array[1..10] of Real;
  VoltH             : array[1..10] of Real;
  VoltA             : array[1..10] of Extended;
  VoltC             : array[1..10] of LongInt;
  FanL              : array[1..10] of Real;
  FanH              : array[1..10] of Real;
  FanA              : array[1..10] of Extended;
  FanC              : array[1..10] of LongInt;
  StartingTimeLog   : String;
  CurrentTimeLog    : String;
  CPUL              : array[1..4]  of Real;
  CPUH              : array[1..4]  of Real;
  CPUA              : array[1..4]  of Extended;
  CPUC              : array[1..4]  of LongInt;  
  TempName          : array[1..10] of String;
  VoltName          : array[1..10] of String;
  FanName           : array[1..10] of String;
  CPUName           : String;
  CPUUsageName      : String;
function ReadSharedData : Boolean;
function ReadSharedInfo : Boolean;
function ReadSharedHL   : Boolean;
function ReadSharedName : Boolean;
implementation
function ReadSharedData : Boolean;
var
  PSH          : PSharedData;
  hSData       : Integer;
  X            : Integer;
begin
  Result:=False;
  hSData:=OpenFileMapping(FILE_MAP_READ, False, '$M$B$M$5$D$');
  if hSData=0 then Exit;
  PSH:=MapViewOfFile(hSData, FILE_MAP_READ, 0, 0, 0);
  if PSH=Nil then
  begin
    CloseHandle(hSData);
    Exit;
  end;
  with PSH^ do
  begin
    for X:=1 to 10 do Temperature[X]:=STemperature[X];
    for X:=1 to 10 do Voltage[X]:=SVoltage[X];
    for X:=1 to 10 do Fan[X]:=SFan[X];
    CPUMHZ:=SMHZ;
    CPUNr:=SNrCPU;
    for X:=1 to 4 do CPU[X]:=SCPU[X];
  end;
  UnMapViewOfFile(PSH);
  CloseHandle(hSData);
  Result:=True;
end;
function ReadSharedInfo : Boolean;
var
  PSH          : PSharedInfo;
  hSInfo       : Integer;
begin
  Result:=False;
  hSInfo:=OpenFileMapping(FILE_MAP_READ, False, '$M$B$M$5$I$');
  if hSInfo=0 then Exit;
  PSH:=MapViewOfFile(hSInfo, FILE_MAP_READ, 0, 0, 0);
  if PSH=Nil then
  begin
    CloseHandle(hSInfo);
    Exit;
  end;
  with PSH^ do
  begin
    SMB_Base:=SSMB_Base;
    UsedBus:=SSMB_Type;
    SmbusType:=SSMB_Code;
    SMBChipAddress:=SSMB_Addr;
    SMB_Name:=StrPas(SSMB_Name);
    ISABase:=SISA_Base;
    ChipType:=SChipType;
    VoltageSubType:=SVoltageSubType;
  end;
  UnMapViewOfFile(PSH);
  CloseHandle(hSInfo);
  Result:=True;
end;
function ReadSharedHL : Boolean;
var
  PSH          : PSharedHL;
  hSHL         : Integer;
  X            : Integer;
begin
  Result:=False;
  hSHL:=OpenFileMapping(FILE_MAP_READ, False, '$M$B$M$5$H$');
  if hSHL =0 then Exit;
  PSH:=MapViewOfFile(hSHL, FILE_MAP_READ, 0, 0, 0);
  if PSH=Nil then
  begin
    CloseHandle(hSHL);
    Exit;
  end;
  with PSH^ do
  begin
    for X:=1 to 10 do
    begin
      TempL[X]:=STempL[X];
      TempH[X]:=STempH[X];
      TempA[X]:=STempA[X];
      TempC[X]:=STempC[X];
    end;
    for X:=1 to 10 do
    begin
      VoltL[X]:=SVoltL[X];
      VoltH[X]:=SVoltH[X];
      VoltA[X]:=SVoltA[X];
      VoltC[X]:=SVoltC[X];
    end;
    for X:=1 to 10 do
    begin
      FanL[X]:=SFanL[X];
      FanH[X]:=SFanH[X];
      FanA[X]:=SFanA[X];
      FanC[X]:=SFanC[X];
    end;
    StartingTimeLog:=StrPas(SStart);
    CurrentTimeLog:=StrPas(SCurrent);
    for X:=1 to 4 do
    begin
      CPUL[X]:=SCPUL[X];
      CPUH[X]:=SCPUH[X];
      CPUA[X]:=SCPUA[X];
      CPUC[X]:=SCPUC[X];
    end;
  end;
  UnMapViewOfFile(PSH);
  CloseHandle(hSHL);
  Result:=True;
end;
function ReadSharedName : Boolean;
var
  PSH          : PSharedName;
  hSData       : Integer;
  X            : Integer;
begin
  Result:=False;
  hSData:=OpenFileMapping(FILE_MAP_READ, False, '$M$B$M$5$N$');
  if hSData=0 then Exit;
  PSH:=MapViewOfFile(hSData, FILE_MAP_READ, 0, 0, 0);
  if PSH=Nil then
  begin
    CloseHandle(hSData);
    Exit;
  end;
  with PSH^ do
  begin
    for X:=1 to 10 do TempName[X]:=StrPas(STempName[X])
    for X:=1 to 10 do VoltName[X]:=StrPas(VoltName[X])
    for X:=1 to 10 do FanName[X]:=StrPas(FanName[X])
    CPUName:=StrPas(SCPUName);
    CPUUsageName:=StrPas(SCPUName);
  end;
  UnMapViewOfFile(PSH);
  CloseHandle(hSData);
  Result:=True;
end;
----------------------------------------------
博客 - http://offeu.com
脚本模型 - http://webpascal.com
作者:
男 tuesdays (Tuesday) ▲▲△△△ -
注册会员
2019/7/30 20:42:11
2楼: jcl好像可以读。
----------------------------------------------
delphi界我写python最强, python界我写delphi最强. 写自己的代码, 让别人去运行吧.
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2019/7/30 21:34:48
3楼: 我手上win7能读的 要驱动 驱动无码。。。
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 chencong5025 (Nicosoft) ▲▲△△△ -
注册会员
2019/7/30 22:35:58
4楼: @keymark 
我听说 winring0  驱动可以读,有签名 win10 可加载。但是不知道如何调用。
----------------------------------------------
-
作者:
男 chencong5025 (Nicosoft) ▲▲△△△ -
注册会员
2019/7/30 22:36:28
5楼: @tuesdays
在提供点线索呗。。
----------------------------------------------
-
作者:
男 lzj7015 (lzj) ▲▲▲▲▲ -
普通会员
2019/7/31 8:40:41
6楼: 细查windows sdk 必定能找到解决办法。
使用Intel ipp能获得 cpu 的一切信息,但在Delphi中调用较烦难。
----------------------------------------------
-
作者:
男 chencong5025 (Nicosoft) ▲▲△△△ -
注册会员
2019/7/31 12:54:56
7楼: @lzj7015

有驱动可以加载驱动读取。据说有个winring0的驱动
----------------------------------------------
-
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2019/8/1 12:34:02
8楼: 1
此帖子包含附件:keymark_20198112342.rar 大小:44.3K
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2019/8/1 12:34:17
9楼: 2
此帖子包含附件:keymark_201981123417.rar 大小:36.3K
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2019/8/1 12:35:43
10楼: 3
此帖子包含附件:keymark_201981123541.zip 大小:718.6K
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2019/8/1 12:38:46
11楼: 4
此帖子包含附件:keymark_201981123845.rar 大小:501.2K
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 chencong5025 (Nicosoft) ▲▲△△△ -
注册会员
2019/8/3 13:00:10
12楼: @keymark

关键是不会用 = =#
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行50.78125毫秒 RSS