获取CPU序列号的Delphi程序

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.