看一下，intel的cpuid的白皮书，里面有专门的取cpuId 的部分

cpuid不是问题， 关键是取出来后对字符串的处理。。。

靠! 还是全局变量好搞定。。。

program Project1;
{$APPTYPE CONSOLE}

Var
   VEN: string[12];
   x: string;

function OemString: string;
Var
  mStr: string[12];
begin
  asm
      mov eax,$0
      DW $A20F
      mov byte ptr [mStr + 0],12     //这个不行， 一定错!
      mov dword ptr [mStr + 1],ebx
      mov dword ptr [mStr + 5],edx
      mov dword ptr [mStr + 9],ecx
  end;

  Result := mStr;
end;

Begin
   {Call CPUID}
   Asm
      {EAX determines function}
      mov eax,$0
      DW $A20F
      mov byte ptr [VEN + 0],12 {String length}
      mov dword ptr [VEN + 1],ebx
      mov dword ptr [VEN + 5],edx
      mov dword ptr [VEN + 9],ecx
   {These registers are modified}
   End;
   {Display results}
   writeln('CPU Vendor: ',VEN);
  // x := OemString;
  // writeln('CPU Vendor: ',x);
   readln;
End.

AMD的CPU居然不支持 Serial Number!!!