用Visual Basic怎样得到CPU以及硬盘的温度？

来源：百度知道 编辑：UC知道 时间：2024/07/06 18:09:12
用什么函数返回CPU的温度？
用什么函数返回硬盘的温度？
最好把函数声明也发上来……………………
一楼的看不懂，一点注释也没有…………
一楼的看不懂，一点注释也没有…………
一楼的看不懂，一点注释也没有…………
一楼的看不懂，一点注释也没有…………

unit Monitor;

interface

uses
windows, SMB, winbond, Menus, ToolWin, Graphics, ImgList, Controls, StdCtrls, CheckLst, Forms, MyUtils, Classes, PCI,
SysUtils, ComCtrls, ExtCtrls,UnitPortTalk;

type
TForm1 = class(TForm)
Timer2: TTimer;
PopupMenu1: TPopupMenu;
Setting1: TMenuItem;
Default1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Silence1: TMenuItem;
ImageList1: TImageList;
Panel3: TPanel;
Panel1: TPanel;
Panel4: TPanel;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox5: TGroupBox;
Image2: TImage;
Label1: TLabel;
lblVID: TLabel;
lblVIN: TLabel;
Label2: TLabel;
Label3: TLabel;
lblDID: TLabel;
lblDIN: TLabel;
Label4: TLabel;
Label8: TLabel;
lblRev: TLabel;
lblBus: TLa