请问如何得到cpu当前的温度?有现成的控件吗?
解决方案 »
- 将查询结果添加到数据库中遇到问题
- 怎么样在前台显示一个非字段的查询结果啊
- 有关copyfile的问题
- TChart控件饼图pie能否实现此功能??
- 皮肤控件SkinEngine3.4.7的SeSkinEdit汉语选择有问题,急!~~~~~~~~`
- 请问哪里有delphi服务程序的例子下载?
- 为什么我在win200下编译的程序 在win98执行不了?
- midas问题,初次上路,请高手指点。急!!!
- delphi 开了一个子线程,调试下几个小时没有运行,没有提示
- 怪问题:我用dbase for window建一个.dbf的表,15个字段,在录入接近3万条记录时,我的表神秘地清空了,检查没有病毒,怀疑是不是超过了
- 【【【【【各位帮帮忙,谁能给我提供一个delphi编写的COM DLL源码例子?马上给分!】】】】
- 我想作一个像Delphi那种界面的程序,请教各位高手。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, CommCtrl, StdCtrls, Menus,WinSpool, ExtCtrls, Validat, Buttons,
Registry;type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
started : boolean;
reg : TRegistry;
public
{ Public-Deklarationen }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
Dummy : array[0..1024] of byte;begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_DYN_DATA; //统计数据在这个表项下
Reg.OpenKey('PerfStats\StartStat',false); // Reg.ReadBinaryData('KERNEL\CPUUsage',Dummy,Sizeof(Dummy));
Reg.CloseKey;
started:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
CPUU : integer;begin
if started then
begin
Reg.OpenKey('PerfStats\StatData',false);
Reg.ReadBinaryData('KERNEL\CPUUsage',CPUU,SizeOf(Integer));
Reg.CloseKey;
Label1.Caption:=IntToStr(CPUU)+'%';
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
Dummy : array[0..1024] of byte;begin
'PerfStats/StopStat' }
Reg.OpenKey('PerfStats\StopStat',false);
Reg.ReadBinaryData('KERNEL\CPUUsage',Dummy,SizeOf(Dummy));
Reg.Free;
Started:=false;
end;end.
新的数据库系统,并且COM+随着WIN2000的发布已经顺利的实施.有没有这方面的大虾讲一讲?