如何在delphi中获取CPU的序列号?(100分)

macwolf · 2003-10-08

程序中需要使用来判断是否是合法的用户,主板或者CPU序列号都可以! 使用在windows2000系统中! 谢谢!

wr960204 · 2003-10-08

用CPUID指令，首先你可以确定你用的CPU是Intel的。 然后执行：     MOV EAX,01H     CPUID 如果返回的EDX中，低18位为1，那么这个CPU就是支持序列号的。 此时EAX就是序列号的高32位。这32位对同一型号的CPU是一样的。 再执行：     MOV EAX,03H     CPUID 此时的EDX:ECX就是序列号的第64位。

yfdciom · 2003-10-08

获得Intel CPU的信息 下面这个函数会返回一个字符串列表及特性集合，这个函数只对Intel 486及以上的CPU有效。其他CPU将返回[cpuNonIntel] 或 [cpuNoCPUID]. 用法： GetCpuFeatures(memo1.Lines); 支持的特性 --------------------------------------- CPU Family 6 CPU Model 7 CPU Stepping 3 On-Chip FPU VirtualMode Extensions Debugging Extensions Page Size Extensions Time Stamp Counter Model Specific Registers Physical Address Extensions Machine Check Extensions CMPXCHG8B Instruction Fast System Call Memory Type Range Registers Page Global Enable Machine Check Architecture Conditional Move Instruction Page Attribute Table 32 Bit Page Size Extension Intel MMX Technology Fast Floating Point Save and Restore Streaming SIMD Extensions unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms; type   TForm2 = class(TForm)   private   { Private declarations }   public   { Public declarations }   end;   TCpuFeature = (cpuNoCPUID,cpuNonIntel,cpuOnChipFPU,   cpuVirtualModeExtensions,cpuDebuggingExtensions,   cpuPageSizeExtensions,cpuTimeStampCounter,   cpuModelSpecificRegisters,cpuPhysicalAddressExtensions,   cpuMachineCheckExtensions,cpuCMPXCHG8B,cpuOnChipAPIC,   cpuFastSystemCall,cpuMemoryRangeRegisters,cpuPageGlobalEnable,   cpuMachineCheckArchitecture,cpuConditionalMoveInstruction,   cpuPageAttributeTable,cpu32bitPageSzExtension,   cpuProcessorSerialNum,cpuMMXTechnology,cpuFastFloatingPoint,   cpuSIMDExtensions);   TCpuFeatures = set of TCpuFeature;   function GetCpuFeatures(FeatureList : TStrings = nil) : TCpuFeatures; var Form2: TForm2; implementation {$R *.DFM} function GetCpuFeatures(FeatureList : TStrings = nil) : TCpuFeatures; const   FPU_FLAG = $0001;   VME_FLAG = $0002;   DE_FLAG = $0004;   PSE_FLAG = $0008;   TSC_FLAG = $0010;   MSR_FLAG = $0020;   PAE_FLAG = $0040;   MCE_FLAG = $0080;   CX8_FLAG = $0100;   APIC_FLAG = $0200;   SEP_FLAG = $0800;   MTRR_FLAG = $1000;   PGE_FLAG = $2000;   MCA_FLAG = $4000;   CMOV_FLAG = $8000;   PAT_FLAG = $10000;   PSE36_FLAG = $20000;   PSNUM_FLAG = $40000;   MMX_FLAG = $800000;   FXSR_FLAG = $1000000;   SIMD_FLAG = $2000000; var IsIntel : boolean;   VendorID : array [0..12] of char;   IntelID : array [0..12] of char;   FeaturesFlag,CpuSignature : DWord;   Temp : DWord;   RetVar : TCpuFeatures;   CpuType : byte;   procedure CheckFeature(FeatureFlag : DWord;   const Item : string;   cpuFeatureType : TCpuFeature);   begin   if FeaturesFlag and FeatureFlag = FeatureFlag then begin   if FeatureList <> nil then FeatureList.Add(Item);   include(RetVar,cpuFeatureType);   end;   end; begin   RetVar := [];   if FeatureList <> nil then FeatureList.Clear;   IsIntel := false;   IntelId := 'GenuineIntel'#0;   VendorID := '------------'#0;   try   asm   //确认是否支持Intel CPUID调用   push ebx   push esi   push edi   mov eax,0 // Set up for CPUID instruction   db 00fh // CPUID - Get Vendor and check INTEL   db 0a2h   mov dword ptr VendorId,ebx   mov dword ptr VendorId[+4],edx   mov dword ptr VendorId[+8],ecx   cmp dword ptr IntelId,ebx //检查是否是Intel CPU   jne @@EndCPUID   cmp dword ptr IntelId[+4],edx   jne @@EndCPUID   cmp dword ptr IntelId[+8],ecx   jne @@EndCPUID // 非Intel CPU   mov byte ptr IsIntel,1 // Set IsIntel to true   cmp eax,1 // Ensure 1 is valid input for CPUID   jl @@EndCPUID // Else jump to end   mov eax,1   db 00fh // CPUID - Get features,family etc.   db 0a2h   mov CpuSignature,eax   mov FeaturesFlag,edx   shr eax,8 // Isolate family   and eax,0fh   mov byte ptr CpuType,al // Set cputype with family   @@EndCPUID :   pop edi // 恢复寄存器   pop esi   pop ebx   end;   // 检查特性掩码   if IsIntel then begin   if FeatureList <> nil then begin   FeatureList.Add('CPU Family ' + IntToStr(CpuType));   Temp := (CpuSignature shr 4) and $0f;   FeatureList.Add('CPU Model ' + IntToStr(Temp));   Temp := CpuSignature and $0f;   FeatureList.Add('CPU Stepping ' + IntToStr(Temp));   end;   CheckFeature(FPU_FLAG,'On-Chip FPU',cpuOnChipFPU);   CheckFeature(VME_FLAG,   'VirtualMode Extensions',cpuVirtualModeExtensions);   CheckFeature(DE_FLAG,'Debugging Extensions',cpuDebuggingExtensions);   CheckFeature(PSE_FLAG,'Page Size Extensions',cpuPageSizeExtensions);   CheckFeature(TSC_FLAG,'Time Stamp Counter',cpuTimeStampCounter);   CheckFeature(MSR_FLAG,   'Model Specific Registers',cpuModelSpecificRegisters);   CheckFeature(PAE_FLAG,   'Physical Address Extensions',   cpuPhysicalAddressExtensions);   CheckFeature(MCE_FLAG,   'Machine Check Extensions',cpuMachineCheckExtensions);   CheckFeature(CX8_FLAG,'CMPXCHG8B Instruction',cpuCMPXCHG8B);   CheckFeature(APIC_FLAG,'On Chip APIC',cpuOnChipAPIC);   CheckFeature(SEP_FLAG,'Fast System Call',cpuFastSystemCall);   CheckFeature(MTRR_FLAG,   'Memory Type Range Registers',cpuMemoryRangeRegisters);   CheckFeature(PGE_FLAG,'Page Global Enable',cpuPageGlobalEnable);   CheckFeature(MCA_FLAG,   'Machine Check Architecture',cpuMachineCheckArchitecture);   CheckFeature(CMOV_FLAG,   'Conditional Move Instruction',   cpuConditionalMoveInstruction);   CheckFeature(PAT_FLAG,'Page Attribute Table',cpuPageAttributeTable);   CheckFeature(PSE36_FLAG,   '32 Bit Page Size Extension',cpu32BitPageSzExtension);   CheckFeature(PSNUM_FLAG,   'Processor Serial Number',cpuProcessorSerialNum);   CheckFeature(MMX_FLAG,'Intel MMX Technology',cpuMMXTechnology);   CheckFeature(FXSR_FLAG,   'Fast Floating Point Save and Restore',   cpuFastFloatingPoint);   CheckFeature(SIMD_FLAG,'Streaming SIMD Extensions',cpuSIMDExtensions);   end   else begin   if FeatureList <> nil then   FeatureList.Add('Non-Intel or >486 Chip - Features Unknown');   include(RetVar,cpuNonIntel);   end;   except   if FeatureList <> nil then FeatureList.Add('No CPUID Support');   include(RetVar,cpuNoCPUID);   end;   Result := RetVar; end; end.

如何在delphi中获取CPU的序列号?(100分)

macwolf

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

Similar threads