高分求DELPHI 下取多核CPU ID,硬盘的序号！！

quasiceo 2013-12-06

展开全文

: erhan; erhan; 等级：

#1 得分：20 回复于： 2011-12-30 17:27:55

注册表里去读
cpu在
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor
硬盘在
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\Scsi

: keiy; keiy; 等级：

#4 得分：20 回复于： 2011-12-30 22:06:03

我用WMI的,win7 64位,SATA硬盘,D2010编译测试通过:

Delphi/Pascal code?

uses ActiveX, ComObj;

...

function GetWMIProperty(WMIType, WMIProperty:AnsiString):String;

var

Wmi, Objs, Obj:OleVariant;

Enum:IEnumVariant;

C:Cardinal;

begin

try

Wmi:= CreateOleObject(AnsiString('WbemScripting.SWbemLocator'));

Objs := Wmi.ConnectServer(AnsiString('.'),AnsiString('root\cimv2')).ExecQuery(AnsiString('Select * from Win32_'+WMIType));

Enum:=IEnumVariant(IUnknown(Objs._NewEnum));

Enum.Reset;

Enum.Next(1,Obj,C);

Obj:=Obj.Properties_.Item(WMIProperty,0).Value;

if VarIsArray(Obj) then Result:=Obj[0]

else Result:=Obj;

except

Result:='error';

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ShowMessage(GetWMIProperty('BIOS','BIOSVersion')); //获得BIOS版本

ShowMessage(GetWMIProperty('DiskDrive','SerialNumber')); //获得第一块硬盘的设备标示

ShowMessage(GetWMIProperty('Processor','ProcessorId')); //获得CPUID。

end;

: zhouxianqun; zhouxianqun; 等级：

#5 得分：0 回复于： 2011-12-31 11:41:44

DelPhi7 XP下获取硬盘出错，其它通过。

楼上的说得对读CPU ID的确没用
因为我遇到过不同的两只CPU ID是一样的

读cpu已经没有意义，因为同系列的cpu的id都是一样的，读硬盘的我写了一个
http://topic.csdn.net/u/20110813/20/202cbe42-e8cc-4e93-82ef-6226e4a84210.html

是的，现在就是这种情况

: mwy654321; 无条件为你; 等级：

#8 得分：20 回复于： 2012-01-04 13:20:43

引用 4 楼 keiy 的回复:

我用WMI的,win7 64位,SATA硬盘,D2010编译测试通过:

Delphi(Pascal) code

uses ActiveX, ComObj;
...
function GetWMIProperty(WMIType, WMIProperty:AnsiString):String;
var
Wmi, Objs, Obj:OleVariant;
Enum:I……

XP下不管用delphi什么版本，都获取出错。而XP刚好又是有大量用户的系统。