var
; str:array[0..12] of char;
begin
asm
; pushfd
; pushad
; mov eax,0
; db 0fh,0a2h //cpuid
; mov DWORD ptr str,ebx
; mov DWORD ptr str+4,edx
; mov DWORD ptr str+8,ecx
; popad
; popfd
; end;
str[12]:=#0;
ShowMessage(str);
end;
如果是intel的cpu，显示的是“GenuineIntel”
如果是amd的，显示的是……什么什么amd
