为什么获取到的CPU ID会变呢?(100分)

taizhi · 2008-12-30

function GetCPUIDStr:String; var   CPUID:TCPUID; begin   CPUID:=GetCPUID;   Result:=IntToHex(CPUID[1],8)+IntToHex(CPUID[2],8)+IntToHex(CPUID[3],8)+IntToHex(CPUID[4],8); end;

taizhi · 2008-12-30

直奇怪,如果发的贴含的字符太多的话,发不出来,只好分开来发,下面代码继续. function GetCPUVendor: TVendor; assembler; register; asm  PUSH    EBX          {Save affected register}  PUSH    EDI  MOV     EDI,EAX      {@Result (TVendor)}  MOV     EAX,0  DW      $A20F        {CPUID Command}  MOV     EAX,EBX  XCHG    EBX,ECX     {save ECX result}  MOV      ECX,4 @1:  STOSB  SHR     EAX,8  LOOP    @1  MOV     EAX,EDX  MOV      ECX,4 @2:  STOSB  SHR     EAX,8  LOOP    @2  MOV     EAX,EBX  MOV      ECX,4 @3:  STOSB  SHR     EAX,8  LOOP    @3  POP     EDI          {Restore registers}  POP     EBX end;

taizhi · 2008-12-30

function GetCPUInfo: string; var  CPUID: TCPUID;  I: Integer;  S: TVendor; begin  for I := Low(CPUID) to High(CPUID) do    CPUID := -1;      CPUID := GetCPUID;  S := GetCPUVendor;  Result := S + IntToHex(CPUID[1], 8) + IntToHex(CPUID[2], 8)             + IntToHex(CPUID[3], 8)             + IntToHex(CPUID[4], 8); end; 通过GetCPUInfo方法来获取CPU ID,结果总在 GenuineIntel00000F43010208000000649DBFEBFBFF 与 GenuineIntel00000F43000208000000649DBFEBFBFF之间变换,这是为什么呢?请高手们指点.

delhpi · 2008-12-30

JasonLaw · 2008-12-30

很明白，因为你是双核CPU. 在加载软件时，，不一定是哪一个CPU优化加载， 所以，一般情况下，谁先加载就读哪一个CPU的 ID. 呵呵，，至于哪一核加载也是系统说了算。。 所以，你的 CPU ID 会在两个ID间互换（因为你是双核CPU，你试试四核 CPU就知道，，是在四个CPUID互换）。 解决方法。。 cnpack 发布的那个控件包里面，有解决方法。 你想要哪一个CPU的ID就要哪一个的。。。 两个。四个。。八个CPU的。。 都没有问题。。呵呵，，

JasonLaw · 2008-12-30

好人作到底。。 贴代码给你。 {******************************************************************************} {                       CnPack For Delphi/C++Builder                           } {                     中国人自己的开放源码第三方开发包                         } {                   (C)Copyright 2001-2008 CnPack 开发组                       } {                   ------------------------------------                       } {                                                                              } {            本开发包是开源的自由软件，您可以遵照 CnPack 的发布协议来修        } {        改和重新发布这一程序。                                                } {                                                                              } {            发布这一开发包的目的是希望它有用，但没有任何担保。甚至没有        } {        适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。        } {                                                                              } {            您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果        } {        还没有，可访问我们的网站：                                            } {                                                                              } {            网站地址：http://www.cnpack.org                                   } {            电子邮件：master@cnpack.org                                       } {                                                                              } {******************************************************************************} unit CnHardWareInfo; {* |<PRE> ================================================================================ * 软件名称：CnPack 组件包 * 单元名称：硬件信息单元 * 单元作者：SkyJacker *           LiuXiao *           Yock *           Bahamut * 备    注：硬件信息单元，目前只实现获取多核、多CPU系统中指定CPU的序列号与占用率 *           以及部分 BIOS 的 ID. * 开发平台：WindowsXP sp2 + Delphi 6.0 up2 * 兼容测试：Win2000/XP + Delphi 5、6 * 本地化：该单元中的字符串均符合本地化处理方式 * 单元标识：$Id: CnHardWareInfo.pas,v 1.9 2008/09/25 12:41:12 liuxiao Exp $ * 修改记录：2008.08.01 V1.3 *               加入 Bahamut 的获取 BIOS ID 的过程，但只支持小部分 BIOS *           2008.04.12 V1.2 *               LiuXiao 加入对 CPU 生产厂商名的读取与是否支持 cpuid 指令与序列号 *               的属性，感谢 Yock。 *           2008.01.12 V1.1 *               LiuXiao 加入对 CPU 占用率的读取 *           2007.01.23 V1.0 *               创建单元，实现功能 ================================================================================ |</PRE>} interface {$I CnPack.inc} uses   Classes, Windows, SysUtils, ExtCtrls;   type   TCnCPUIdFormat = (ifContinuous, ifDashed);   {* CPU序列号与信息串显示样式    |<PRE>      ifContinuous:  -连续型      ifDashed:      -使用分割符'-'分割    |</PRE>   }   TCnCpuId = class(TPersistent)   {CPU 信息类}   private     FTimer: TTimer;     FCPUCount: Integer;     FCPUIds: TStrings;     FCPUInfos: TStrings;     FSupportCpuIds: TList;     FSupportCpuSns: TList;     FCPUOems: TStrings;     FCPUIdFormat: TCnCPUIdFormat;     FCPUUsageRead: Boolean;     FCPUUsage: array[0..255] of Integer; // 总不会超过 256 个 CPU 吧？     FCurCnt, FLastCnt: array[0..255] of Integer;     FAverageCPUUsage: Integer;     function GetFirstCPUId: string;     function GetCPUId(Index: Integer): string;     procedure SetCPUIdFormat(ACPUIdFormat: TCnCPUIdFormat);     function GetAverageCPUUsage: Integer;     function GetCPUUsage(Index: Integer): Integer;     function GetFirstCPUUsage: Integer;     function RefreshCPUUsages: Cardinal; // 只被定时调用     procedure CpuUsageTimer(Sender: TObject);     function GetCPUOem(Index: Integer): string;     function GetFirstCPUOem: string;     function GetSupportCPUId(Index: Integer): Boolean;     function GetSupportCPUSn(Index: Integer): Boolean;     function GetFirstSupportCPUId: Boolean;     function GetFirstSupportCPUSn: Boolean;     function GetCPUInfoString(Index: Integer): string;     function GetFirstCPUInfoString: string;   public     constructor Create;     {* 构造函数，创建 FCPUIds 并调用 ReadCPUId}     destructor Destroy; override;     procedure ReadCPUId;     {* 获得所有 CPU 内核的序列号和其他信息，并存入各个列表}     property CPUIdFormat: TCnCPUIdFormat read FCPUIdFormat write SetCPUIdFormat;     {* CPU 序列号显示样式}     property CPUCount: Integer read FCPUCount;     {* 系统中 CPU 核总数}     property FirstCPUId: string read GetFirstCPUId;     {* 获取首个 CPU 的 ID，用于单 CPU 系统}     property FirstCPUInfoString: string read GetFirstCPUInfoString;     {* 获取首个 CPU 的信息字符串，用于单 CPU 系统}     property FirstCPUOem: string read GetFirstCPUOem;     {* 获取首个 CPU 的生产厂商，用于单 CPU 系统}     property FirstSupportCPUId: Boolean read GetFirstSupportCPUId;     {* 获取首个 CPU 是否支持 CPUID 指令，用于单 CPU 系统}     property FirstSupportCPUSn: Boolean read GetFirstSupportCPUSn;     {* 获取首个 CPU 是否支持读取 CPU 序列号，用于单 CPU 系统}     property SupportCPUId[Index: Integer]: Boolean read GetSupportCPUId;     {* 获取指定 CPU 是否支持 CPUID 指令}     property SupportCPUSn[Index: Integer]: Boolean read GetSupportCPUSn;     {* 获取指定 CPU 是否支持读取 CPU 序列号}     property CPUId[Index: Integer]: string read GetCPUId;     {* 获得指定 CPU 的序列号。索引 Index 从 0 开始。        需要说明的是，序列号很多 CPU 被禁止读取了因此此属性全 0；而网络上流传的        CPU 序列号读取，很多情况下读的是下面的“信息字符串”的属性}     property CPUInfoString[Index: Integer]: string read GetCPUInfoString;     {* 获得指定 CPU 的信息字符串。索引 Index 从 0 开始。        此信息字符串包括了 CPU 的一些特性说明，非唯一，很多情况下被误当做 CPU ID。}     property CPUOem[Index: Integer]: string read GetCPUOem;      {* 获得指定 CPU 的生产厂商。索引 Index 从 0 开始}     property CPUUsage[Index: Integer]: Integer read GetCPUUsage;     {* 获得指定 CPU 的占用率，0 到 100        需要说明的是，本类在 NT 系统上采用定时采样获得 CPU 的忙周期数再计算而来，        因此在刚实例化、未采样完成时，得到的 CPU 占用率可能有误。以下同。     }     property AverageCPUUsage: Integer read GetAverageCPUUsage;     {* 获得平均 CPU 占用率，0 到 100}     property FirstCPUUsage: Integer read GetFirstCPUUsage;     {* 获得首个 CPU 的占用率，0 到 100，用于单 CPU 系统}   end; function CnGetBiosID: string; {* 获得 BIOS 的 ID，只支持小部分 BIOS，而且旧式的主板由于不规范，无法获取 ID} implementation const   BiosOffset: array[0..2] of DWORD = ($6577, $7196, $7550); type   PUNICODE_STRING = ^TUNICODE_STRING;   _UNICODE_STRING = record     Length: Word;     MaximumLength: Word;     Buffer: PWChar;   end;   TUNICODE_STRING = _UNICODE_STRING;   POBJECT_ATTRIBUTES = ^TOBJECT_ATTRIBUTES;   _OBJECT_ATTRIBUTES = record     Length: ULONG;     RootDirectory: THandle;     ObjectName: PUNICODE_STRING;     Attributes: ULONG;     SecurityDescriptor: Pointer;     SecurityQualityOfService: Pointer;   end;   TOBJECT_ATTRIBUTES = _OBJECT_ATTRIBUTES;   PLARGE_INTEGER = ^LARGE_INTEGER;   PPByte = ^PByte;   _SYSTEM_BASIC_INFORMATION = record     Unknown: ULONG;     MaximumIncrement: ULONG;     PhysicalPageSize: ULONG;     NumberOfPhysicalPages: ULONG;     LowestPhysicalPage: ULONG;     HighestPhysicalPage: ULONG;     AllocationGranularity: ULONG;     LowestUserAddress: ULONG;     HighestUserAddress: ULONG;     ActiveProcessors: ULONG;     NumberProcessors: UCHAR;   end;   SYSTEM_BASIC_INFORMATION = _SYSTEM_BASIC_INFORMATION;   PSYSTEM_BASIC_INFORMATION = ^SYSTEM_BASIC_INFORMATION;   TSystemBasicInformation = SYSTEM_BASIC_INFORMATION;   PSystemBasicInformation = ^TSystemBasicInformation;   SYSTEM_PROCESSOR_TIMES = packed record     IdleTime: LARGE_INTEGER;     KernelTime: LARGE_INTEGER;     UserTime: LARGE_INTEGER;     DpcTime: LARGE_INTEGER;     InterruptTime: LARGE_INTEGER;     InterruptCount: ULONG;   end;   TSystemProcessorTimes = SYSTEM_PROCESSOR_TIMES;   PSystemProcessorTimes = ^TSystemProcessorTimes;     SYSTEM_INFORMATION_CLASS = (           SystemBasicInformation,           SystemProcessorInformation,           SystemPerformanceInformation,           SystemTimeOfDayInformation,           SystemNotImplemented1,           SystemProcessesAndThreadsInformation,           SystemCallCounts,           SystemConfigurationInformation,           SystemProcessorTimes,           SystemGlobalFlag,           SystemNotImplemented2,           SystemModuleInformation,           SystemLockInformation,           SystemNotImplemented3,           SystemNotImplemented4,           SystemNotImplemented5,           SystemHandleInformation,           SystemObjectInformation,           SystemPagefileInformation,           SystemInstructionEmulationCounts,           SystemInvalidInfoClass1,           SystemCacheInformation,           SystemPoolTagInformation,           SystemProcessorStatistics,           SystemDpcInformation,           SystemNotImplemented6,           SystemLoadImage,           SystemUnloadImage,           SystemTimeAdjustment,           SystemNotImplemented7,           SystemNotImplemented8,           SystemNotImplemented9,           SystemCrashDumpInformation,           SystemExceptionInformation,           SystemCrashDumpStateInformation,           SystemKernelDebuggerInformation,           SystemContextSwitchInformation,           SystemRegistryQuotaInformation,           SystemLoadAndCallImage,           SystemPrioritySeparation,           SystemNotImplemented10,           SystemNotImplemented11,           SystemInvalidInfoClass2,           SystemInvalidInfoClass3,           SystemTimeZoneInformation,           SystemLookasideInformation,           SystemSetTimeSlipEvent,           SystemCreateSession,           SystemDeleteSession,           SystemInvalidInfoClass4,           SystemRangeStartInformation,           SystemVerifierInformation,           SystemAddVerifier,           SystemSessionProcessesInformation);   TSystemInformationClass = SYSTEM_INFORMATION_CLASS;     TNativeQuerySystemInformation = function(SystemInformationClass:     TSystemInformationClass; SystemInformation: Pointer; SystemInformationLength:     Cardinal; ReturnLength: PDWORD): Cardinal; stdcall;   TZwOpenSection = function (var hWnd: THandle; dwMask: DWORD; PObject: POBJECT_ATTRIBUTES): DWORD; stdcall;   TZwMapViewOfSection = function (hWnd: THandle; ViewHandle: THandle; PBaseAddr: Pointer;     dwLength: ULONG; dwAllocLen: ULONG; PRealAddr: PLARGE_INTEGER; PReadLen: PDWORD;     dwInherite: DWORD; dwAllocType: ULONG; dwProtectType: ULONG): DWORD; stdcall;   TZwUnmapViewOfSection = function (hWnd: THandle; PBaseAddr: Pointer): DWORD; stdcall; const   STATUS_SUCCESS = $00000000; var   NtDllHandle: THandle = 0;   NtDllNeedFree: Boolean = False;   NtQuerySystemInformation: TNativeQuerySystemInformation = nil;   ZwOpenSection: TZwOpenSection = nil;   ZwMapViewOfSection: TZwMapViewOfSection = nil;   ZwUnmapViewOfSection: TZwUnmapViewOfSection = nil; function GetNtNativeAPIs: Boolean; begin   if Win32Platform = VER_PLATFORM_WIN32_NT then   begin     NtDllHandle := GetModuleHandle('NTDLL.DLL');     if NtDllHandle = 0 then     begin       NtDllHandle := LoadLibrary('NTDLL.DLL');       NtDllNeedFree := NtDllHandle <> 0;     end;     if NtDllHandle <> 0 then     begin //      @NtQueryInformationToken:=GetProcAddress(NtDllHandle,'NtQueryInformationToken'); //      @NtOpenProcessToken := GetProcAddress(NtDllHandle,'NtOpenProcessToken'); //      @NtOpenSection := GetProcAddress(NtDllHandle,'NtOpenSection'); //      @NtClose := GetProcAddress(NtDllHandle,'NtClose'); //      @NtOpenProcess := GetProcAddress(NtDllHandle,'NtOpenProcess');       @NtQuerySystemInformation := GetProcAddress(NtDllHandle, 'NtQuerySystemInformation'); //      @NtCreateSection := GetProcAddress(NtDllHandle,'NtCreateSection'); //      @NtCreateToken := GetProcAddress(NtDllHandle,'NtCreateToken'); //      @NtMapViewOfSection := GetProcAddress(NtDllHandle,'NtMapViewOfSection'); //      @NtUnmapViewOfSection := GetProcAddress(NtDllHandle,'NtUnmapViewOfSection'); //      @NtOpenFile := GetProcAddress(NtDllHandle,'NtOpenFile'); //      @NtCreateFile := GetProcAddress(NtDllHandle,'NtCreateFile'); //      @NtQueryObject := GetProcAddress(NtDllHandle,'NtQueryObject'); //      @NtQueryInformationProcess := GetProcAddress(NtDllHandle,'NtQueryInformationProcess'); //      @NtQueryInformationThread := GetProcAddress(NtDllHandle,'NtQueryInformationThread'); //      @NtQueryInformationFile := GetProcAddress(NtDllHandle,'NtQueryInformationFile'); //      @NtDuplicateObject := GetProcAddress(NtDllHandle,'NtDuplicateObject'); //      @NtDeviceIoControlFile := GetProcAddress(NtDllHandle,'NtDeviceIoControlFile');       @ZwOpenSection := GetProcAddress(NtDllHandle, 'ZwOpenSection');       @ZwMapViewOfSection := GetProcAddress(NtDllHandle, 'ZwMapViewOfSection');       @ZwUnmapViewOfSection := GetProcAddress(NtDllHandle, 'ZwUnmapViewOfSection');     end;   end;   Result := NtDllHandle <> 0; end; procedure FreeNtNativeAPIs; begin   if (NtDllHandle <> 0) and NtDllNeedFree then   begin     FreeLibrary(NtDllHandle);     NtDllHandle := 0;   end; end; constructor TCnCpuId.Create; begin   FSupportCpuIds := TList.Create;   FSupportCpuSns := TList.Create;   FCPUIds := TStringList.Create;   FCPUInfos := TStringList.Create;   FCPUOems := TStringList.Create;   FCPUIdFormat := ifContinuous;   ReadCPUId;   FTimer := TTimer.Create(nil);   FTimer.Interval := 1000;   FTimer.OnTimer := CpuUsageTimer;   FTimer.Enabled := True;   RefreshCPUUsages;   if Win32Platform = VER_PLATFORM_WIN32_NT then // NT 下需要采样判断     FCPUUsageRead := False; end; destructor TCnCpuId.Destroy; begin   FTimer.Free;   FCPUOems.Free;   FCPUInfos.Free;   FCPUIds.Free;   FSupportCpuSns.Free;   FSupportCpuIds.Free; end; // 获取所有 CPU 的序列号 procedure TCnCpuId.ReadCPUId; const   SCN_CPUID_BIT = $200000; //CPU ID 位标记 var   I: Integer;   Mask: Integer;   CurrProc: THandle;   SysInfo: TSystemInfo;   ProcessAffinityOld: Cardinal;   ProcessAffinity: Cardinal;   SystemAffinity: Cardinal;   function GetCnCpuIdSupport: Boolean;   asm     PUSHFD   //不允许直接存取，必须通过堆栈     POP     EAX     MOV     EDX, EAX     XOR     EAX, SCN_CPUID_BIT     PUSH    EAX     POPFD     PUSHFD     POP     EAX     XOR     EAX,EDX  // 检测 ID 位是否受影响     JZ      @exit    // CPUID 无效     MOV     AL, 1  // CPUID 有效   @exit:   end;   // 获取 CPU 信息字符串   function GetCnCPUInfoString: string;   const     cnIFContinuous = '%.8x%.8x%.8x%.8x';     cnIFDashed = '%.8x-%.8x-%.8x-%.8x';   var     iEax,iEbx,iEcx,iEdx: Integer;   begin     asm       push ebx       push ecx       push edx       mov  eax, $1       dw $A20F      //CPUID       mov iEax, eax       mov iEbx, ebx       mov iEcx, ecx       mov iEdx, edx       pop edx       pop ecx       pop ebx     end;     if FCPUIdFormat = ifContinuous then       Result := Format(cnIFContinuous, [iEax, iEbx, iEcx, iEdx])     else       Result := Format(cnIFDashed, [iEax, iEbx, iEcx, iEdx])   end;   // 获取 CPU 序列号   function GetCnCPUID: string;   const     SCnIFContinuous = '%.4x%.4x%.4x%.4x%.4x%.4x';     SCnIFDashed = '%.4x-%.4x-%.4x-%.4x-%.4x-%.4x';   var     SFmt: string;     iEax, iEcx, iEdx, iEdx1: Integer;   begin     asm       push ebx       push ecx       push edx       mov  eax, $1       dw $A20F      //CPUID       mov iEax, eax       mov iEdx1, edx       mov eax, $3       dw $A20F       mov iEcx, ecx       mov iEdx, edx       pop edx       pop ecx       pop ebx     end;     if FCPUIdFormat=ifContinuous then       SFmt := SCnIFContinuous     else       SFmt := SCnIFDashed;     if iEdx1 and (1 shr 18) = 0 then // Cpu 序列号不能读，返回全0     begin       Result := Format(SFmt, [0, 0, 0, 0, 0, 0]);       FSupportCpuSns.Add(nil); // 加 False     end     else     begin       FSupportCpuSns.Add(Pointer(True));       Result := Format(SFmt,         [(iEax and $FFFF0000) shr 16, iEax and $FFFF,          (iEcx and $FFFF0000) shr 16, iEcx and $FFFF,          (iEdx and $FFFF0000) shr 16, iEdx and $FFFF]);     end;   end;   // 获得 CPU OEM 厂商名   function GetCnCPUOem: string;   var     iEax, iEbx, iEcx, iEdx: Integer;   begin     asm       push ebx       push ecx       push edx       mov  eax, $0       dw $A20F      //CPUID       mov iEax, eax       mov iEbx, ebx       mov iEcx, ecx       mov iEdx, edx       pop edx       pop ecx       pop ebx     end;     SetLength(Result, 3 * SizeOf(Integer));     CopyMemory(@Result[1], @iEbx, SizeOf(Integer));     CopyMemory(@Result[1 + SizeOf(Integer)], @iEdx, SizeOf(Integer));     CopyMemory(@Result[1 + 2 * SizeOf(Integer)], @iEcx, SizeOf(Integer));   end; begin   FCPUCount := 0;   FSupportCpuIds.Clear;   FSupportCpuSns.Clear;   FCPUIds.Clear;   FCPUOems.Clear;     // 获取 CPU 个数   GetSystemInfo(SysInfo);   FCPUCount := SysInfo.dwNumberOfProcessors;   // 获取所有 CPU 的序列号   Mask := $1;   CurrProc := GetCurrentProcess;   if not GetProcessAffinityMask(CurrProc, ProcessAffinityOld, SystemAffinity) then     Exit;   try     for I := 0 to FCpuCount - 1 do     begin       ProcessAffinity := Mask shl I;       if not SetProcessAffinityMask(CurrProc, ProcessAffinity) then         Break;       FSupportCpuIds.Add(Pointer(GetCnCpuIdSupport));       if FSupportCpuIds[FSupportCpuIds.Count - 1] <> nil then       begin         FCPUIds.Add(GetCnCPUID);         FCPUInfos.Add(GetCnCPUInfoString);         FCPUOems.Add(GetCnCPUOem);       end       else       begin         FCPUIds.Add('');         FCPUInfos.Add('');         FCPUOems.Add('');             end;     end;   finally     //恢复默认     SetProcessAffinityMask(CurrProc, ProcessAffinityOld);   end; end; procedure TCnCpuId.SetCPUIdFormat(ACPUIdFormat: TCnCPUIdFormat); begin   if FCPUIdFormat <> ACPUIdFormat then   begin     FCPUIdFormat := ACPUIdFormat;     ReadCPUId;   end; end; // 获得单 CPU 系统 ID function TCnCpuId.GetFirstCPUId: string; begin   if FCPUIds.Count > 0 then     Result := FCPUIds.Strings[0]; end; // 得到第几个 CPU 的序列号 function TCnCpuId.GetCPUId(Index: Integer): string; begin   Result := '';   // 保证 FCPUIds 索引的合法性   if (Index < 0) or (Index > FCPUIds.Count - 1) then     Exit;   Result := FCPUIds.Strings[Index]; end; function TCnCpuId.GetAverageCPUUsage: Integer; begin   if not FCPUUsageRead then     Result := -1   else     Result := FAverageCPUUsage; end; function TCnCpuId.GetCPUUsage(Index: Integer): Integer; begin   if not FCPUUsageRead or (Index > FCPUCount - 1) then     Result := -1   else     Result := FCPUUsage[Index]; end; function TCnCpuId.GetFirstCPUUsage: Integer; begin   if FCPUUsageRead and (FCPUCount > 0) then     Result := FCPUUsage[0]   else     Result := -1; end; function TCnCpuId.RefreshCPUUsages: Cardinal; var   CpuCnt: Cardinal;   I: integer;   Spt: Pointer;   Sbi: TSystemBasicInformation;   dwType, cbData: Cardinal;   hOpen: HKEY;   Buffer: Cardinal; begin   if Win32Platform = VER_PLATFORM_WIN32_NT then   begin     for I := 0 to FCPUCount - 1 do // 保存旧值       FLastCnt := FCurCnt;     if NtQuerySystemInformation(SystemBasicInformation, @Sbi, SizeOf(Sbi), nil)       <> STATUS_SUCCESS then       CpuCnt := 1     else       CpuCnt := Sbi.NumberProcessors;     Spt := AllocMem(CpuCnt * (SizeOf(TSystemProcessorTimes) + 4));     NtQuerySystemInformation(SystemProcessorTimes, Spt, CpuCnt * (SizeOf(TSystemProcessorTimes) + 4), @Result);     for I := 0 to CpuCnt - 1  do     begin       with PSystemProcessorTimes(PChar(Spt) + I * (sizeof(TSystemProcessorTimes) + 4))^ do         FCurCnt := IdleTime.QuadPart;               // 采样后计算       try         FCPUUsage := Round((10000000 - (FCurCnt - FLastCnt) / (FTimer.Interval / 1000)) / 10000000 * 100);       except         FCPUUsage := 0;       end;     end;     FreeMem(spt);   end   else   begin     if RegOpenKeyEx(HKEY_DYN_DATA,'PerfStats/StatData', 0, KEY_READ, hOpen) = ERROR_SUCCESS then     begin       cbData:=sizeof(Cardinal);       if RegQueryValueEx(hOpen, 'KERNEL/CPUUsage', nil, @dwType, PBYTE(@Buffer),         @cbData) = ERROR_SUCCESS then         FCPUUsage[0] := Buffer;       RegCloseKey(hOpen);     end     else       FCPUUsage[0] := -1;   end;   FCPUUsageRead := True; end; procedure TCnCpuId.CpuUsageTimer(Sender: TObject); var   I: Integer; begin   RefreshCPUUsages;     FAverageCPUUsage := 0;   for I := 0 to FCPUCount - 1 do   begin     if FCPUUsage <> -1 then       FAverageCPUUsage := FAverageCPUUsage + FCPUUsage;   end;   if FCPUCount > 0 then     FAverageCPUUsage := Round(FAverageCPUUsage / FCPUCount)   else     FAverageCPUUsage := -1; end; function TCnCpuId.GetCPUOem(Index: Integer): string; begin   Result := '';   // 保证 FCPUIds 索引的合法性   if (Index < 0) or (Index > FCPUOems.Count - 1) then     Exit;   Result := FCPUOems.Strings[Index]; end; function TCnCpuId.GetFirstCPUOem: string; begin   if FCPUOems.Count > 0 then     Result := FCPUOems.Strings[0]; end; function TCnCpuId.GetSupportCPUId(Index: Integer): Boolean; begin   Result := False;   // 保证 FSupportCpuIds 索引的合法性   if (Index < 0) or (Index > FSupportCpuIds.Count - 1) then     Exit;   Result := Boolean(FSupportCpuIds[Index]); end; function TCnCpuId.GetSupportCPUSn(Index: Integer): Boolean; begin   Result := False;   // 保证 FSupportCpuIds 索引的合法性   if (Index < 0) or (Index > FSupportCpuSns.Count - 1) then     Exit;   Result := Boolean(FSupportCpuSns[Index]); end; function TCnCpuId.GetFirstSupportCPUId: Boolean; begin   Result := False;   if FSupportCpuIds.Count > 0 then     Result := Boolean(FSupportCpuIds[0]); end; function TCnCpuId.GetFirstSupportCPUSn: Boolean; begin   Result := False;   if FSupportCpuSns.Count > 0 then     Result := Boolean(FSupportCpuSns[0]); end; function TCnCpuId.GetCPUInfoString(Index: Integer): string; begin   Result := '';   if (Index < 0) or (Index > FCPUInfos.Count - 1) then     Exit;   Result := FCPUInfos.Strings[Index]; end; function TCnCpuId.GetFirstCPUInfoString: string; begin   if FCPUInfos.Count > 0 then     Result := FCPUInfos[0]; end; function FindAwardBios(var BiosAddr: PByte): UINT; var   ABiosAddr: PByte;   szBiosData: array [0..127] of Char;   Len: Integer;   Loop: Byte; begin   Result:= 0;   ABiosAddr:= PByte(DWORD(BiosAddr) + $EC71);   CopyMemory(@szBiosData[0], ABiosAddr, 127);   szBiosData[127]:= #0;   Len:= StrLen(PChar(@szBiosData[0]));   if (Len <= 0) or (Len >= 128) then     Exit;   //AWard:         07/08/2002-i845G-ITE8712-JF69VD0CC-00   //Phoenix-Award: 03/12/2002-sis645-p4s333   if (szBiosData[2] <> '/') or (szBiosData[5] <> '/') then     Exit;   Loop:= 0;   while szBiosData[Loop] <> #0 do   begin     if (szBiosData[Loop] < ' ') or (szBiosData[Loop] >= Chr(127)) then       Break;     Inc(Loop);   end;   if szBiosData[Loop] = #0 then   begin     BiosAddr:= ABiosAddr;     Result:= Len;   end; end; function FindAmiBios(var BiosAddr: PByte): UINT; var   ABiosAddr: PByte;   szBiosData: array [0..127] of Char;   Len: Integer;   Loop: Byte; begin   Result:= 0;   ABiosAddr:= PByte(DWORD(BiosAddr) + $F478);   CopyMemory(@szBiosData[0], ABiosAddr, 127);   szBiosData[127]:= #0;   Len:= StrLen(PChar(@szBiosData[0]));   if (Len <= 0) or (Len >= 128) then     Exit;   // Example: "AMI: 51-2300-000000-00101111-030199-"   if (szBiosData[2] <> '-') or (szBiosData[7] <> '-') then     Exit;   Loop:= 0;   while szBiosData[Loop] <> #0 do   begin     if (szBiosData[Loop] < ' ') or (szBiosData[Loop] >= Chr(127)) then       Break;     Inc(Loop);   end;   if szBiosData[Loop] = #0 then   begin     BiosAddr:= ABiosAddr;     Result:= Len;   end; end; function FindPhoenixBios(var BiosAddr: PByte): UINT; var   ABiosAddr: PByte;   szBiosData: array [0..127] of Char;   Len: Integer;   I, Loop: Byte; begin   for I := 0 to 2 do   begin     ABiosAddr:= PByte(DWORD(BiosAddr) + BiosOffset);     CopyMemory(@szBiosData[0], ABiosAddr, 127);     szBiosData[127]:= #0;     Len:= StrLen(PChar(@szBiosData[0]));     if (Len <= 0) or (Len >= 128) then       Continue;     // Example: Phoenix "NITELT0.86B.0044.P11.9910111055"     if (szBiosData[7] <> '.') or (szBiosData[11] <> '.') then       Continue;     Loop:= 0;     while szBiosData[Loop] <> #0 do     begin       if (szBiosData[Loop] < ' ') or (szBiosData[Loop] >= Chr(127)) then         Break;       Inc(Loop);     end;     if szBiosData[Loop] = #0 then     begin       BiosAddr:= ABiosAddr;       Result:= Len;       Exit;     end;   end;   Result:= 0; end; function CnGetBiosID: string; var   Size: DWORD;   RealAddr: LARGE_INTEGER;   Path: PWCHAR;   BaseAddr: DWORD;   UniString: TUNICODE_STRING;   Obj: TOBJECT_ATTRIBUTES;   hSection: THandle;   PBiosSerial: PByte;   uBiosSerialLen: UINT;   szSystemInfo: array [0..4095] of Char;   ReturnLen: UINT; begin   FillChar(szSystemInfo, 4096, 0);   ReturnLen:= 0;   RealAddr.LowPart:= $000F0000;   RealAddr.HighPart:= $00000000;   Size:= $FFFF;   Path:= '/device/physicalmemory';   BaseAddr:= 0;   UniString.Buffer:= Path;   UniString.Length:= $2C;   UniString.MaximumLength:= $2E;   Obj.Attributes:= 64;   Obj.Length:= 24;   Obj.ObjectName:= @UniString;   Obj.RootDirectory:= 0;   Obj.SecurityDescriptor:= nil;   Obj.SecurityQualityOfService:= nil;   //调用函数，对物理内存进行映射   if (ZwOpenSection(hSection, 4, @Obj) = 0) and      (ZwMapViewOfSection(hSection, $FFFFFFFF, @BaseAddr, 0, $FFFF, @RealAddr, @Size, 1, 0, 2) = 0) then   begin     //执行后会在当前进程的空间开辟一段64k的空间，并把f000:0000到f000:ffff处的内容映射到这里     //映射的基址由BaseAddr返回,如果映射不再有用,应该用ZwUnmapViewOfSection断开映射     PBiosSerial:= PByte(BaseAddr);     uBiosSerialLen:= FindAwardBios(PBiosSerial);     if uBiosSerialLen = 0 then     begin       uBiosSerialLen:= FindAmiBios(PBiosSerial);       if uBiosSerialLen = 0 then         uBiosSerialLen:= FindPhoenixBios(PBiosSerial);     end;     if uBiosSerialLen <> 0 then     begin       CopyMemory(Pointer(szSystemInfo + ReturnLen), PBiosSerial, uBiosSerialLen);       Inc(ReturnLen, uBiosSerialLen);     end;     ZwUnmapViewOfSection($FFFFFFFF, Pointer(BaseAddr));   end;   if ReturnLen <> 0 then   begin     SetLength(Result, ReturnLen);     MoveMemory(@Result[1], @szSystemInfo[0], ReturnLen);   end; end; initialization   GetNtNativeAPIs; finalization   FreeNtNativeAPIs; end.

为什么获取到的CPU ID会变呢?(100分)

taizhi

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

JasonLaw

Unregistered / Unconfirmed

JasonLaw

Unregistered / Unconfirmed

Similar threads