求救：怎么获得CPU序列号？？？不止是Intel的

Question

共享软件，需要获取用户CPU序列号，我用CPUID，可经常会有大量的重复号码，很多用户发过来的序列号相同，怎样解决？？？？

Answer 1

--------------------------------------------------------------------------------Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; 
Function CpuTypeString : String; Implementation Uses 
SysUtils; Function CpuType : TCpuType; ASSEMBLER; 
Asm 
// 8086 CPU 检测
push ds 
pushf 
pop bx 
mov ax, 0fffh 
and ax, bx 
push ax 
popf 
pushf 
pop ax 
and ax, 0f000h 
cmp ax, 0f000h 
mov ax, cpu8086 
je @@End_CpuType // 80286 CPU检测 or bx, 0f000h 
push bx 
popf 
pushf 
pop ax 
and ax, 0f000h 
mov ax, cpu286 
jz @@End_CpuType // 386 CPU 检测db 66h 
pushf 
db 66h 
pop ax 
db 66h 
mov cx, ax 
db 66h 
xor ax, 0h 
dw 0004h 
db 66h 
push ax 
db 66h 
popf 
db 66h 
pushf 
db 66h 
pop ax 
db 66h 
xor ax, cx 
mov ax, cpu386 
je @@End_CpuType // 486 CPU 检测db 66h 
pushf 
db 66h 
pop ax 
db 66h 
mov cx, ax 
db 66h 
xor ax, 0h 
dw 0020h 
db 66h 
push ax 
db 66h 
popf 
db 66h 
pushf 
db 66h 
pop ax 
db 66h 
xor ax, cx 
mov ax, cpu486 
je @@End_CpuType // Pentium CPU 检测db 66h 
mov ax, 1 
dw 0 
db 66h 
db 0Fh 
db 0a2h 
db 66h 
and ax, 0F00H 
dw 0 
db 66h 
shr ax, 8 
sub ax, 1 @@End_CpuType: pop ds End; Function CpuTypeString : String; Var Kind : TCpuType; Begin Kind := CpuType; Case Kind Of cpu8086 : Result := '8086'; 
cpu286 : Result := '286'; 
cpu386 : Result := '386'; 
cpu486 : Result := '486'; 
cpuPentium : Result := 'Pentium'; Else Result := Format ('P%d', [Ord (kind)]); End; End; End. 

Answer 2

只有PIII有过唯一的ID，后来还因为隐私权的问题给取消了。你应该想别的辙，比如硬盘ID、网卡的MAC地址等等这些东西。

Answer 3

http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=15994
你把这个下载下去，可以自己看一看代码；

Answer 4

楼上的老大，你看了我给下载的地址了吗？
它有硬盘的ID获取，有网卡的MAC获取，有CUPID的获取......
看完了再说，OK?

Answer 5

主板序列号,CMOS序列号.因系统不同获取难度不同