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.