function GetCPUID: TCPUID; assembler; register;
asm
  PUSH    EBX         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX     {@Resukt}
  MOV     EAX,1
  DW      $A20F       {CPUID Command}
  STOSD               {CPUID[1]}
  MOV     EAX,EBX
  STOSD               {CPUID[2]}
  MOV     EAX,ECX
  STOSD               {CPUID[3]}
  MOV     EAX,EDX
  STOSD               {CPUID[4]}
  POP     EDI         {Restore registers}
  POP     EBX
end;

function GetCPUVendor: TCPUVendor; assembler; register;
asm
  PUSH    EBX         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX     {@Result (TVendor)}
  MOV     EAX,0
  DW      $A20F       {CPUID Command}
  MOV     EAX,EBX
  XCHG    EBX,ECX     {save ECX result}
  MOV     ECX,4
@1:
  STOSB
  SHR     EAX,8
  LOOP    @1
  MOV     EAX,EDX
  MOV     ECX,4
@2:
  STOSB
  SHR     EAX,8
  LOOP    @2
  MOV     EAX,EBX
  MOV     ECX,4
@3:
  STOSB
  SHR     EAX,8
  LOOP    @3
  POP     EDI         {Restore registers}
  POP     EBX
end;

TCPUID = array[1..4] of Longint;
  TCPUVendor = array[0..11] of Char;

谢谢,这个我试了,但是如果cpu型号相同,不同的电脑则会得出一样的结果.我想知道如何得到每个cpu的唯一id.

看看这个：
http://218.56.11.178:8020/web/index.aspx

-》下载基地-》例程-硬件控制-》内存CPU硬盘检测

可能和上边的差不多。试试吧

process number 因为隐私权的问题已近去掉了，只有PIII才有，而且大部分主板都把它屏蔽了。

高人太多

不会吧，这个程序我正在用，在不同的机器上面得出的cpu的id是不同的，把同一个cpu放在不同的机器上，得出的id是一样的，还需要什么唯一id呢？
这个本身就是全球唯一的id啊！

那就完全是你理解错误了,CPUID是什么?它其实也是条指令,通过该指令返回CPU的各种相关信息而已,同一类型的CPU,它的描述信息自然也完全相同.

也没有必要通过
DW $A20F
去插入字去实现该指令,这是低版本Delphi中的做法,在D6中直接写CPUID完全没有问题.

如果是Intel的CPU,并且要取的是PSN的话,如Pazee所说,能取到PSN的只有在早期的P3配合早期的主版,而且用户没有主动关闭它的情况下才能实现,估计这个概率是非常非常的小的.

另外CPUID指令在486时代以后就有了,而不是P3以后才得到支持的.

不会吧，难道上面的那个算法的不到唯一的id吗？
好想我测试的时候还真的用的不是同一种cpu，当时我测试时忘了这个问题，就在intel 2.0上面和amd2400+上面测试，然后在intel1.8,2.0等上面测试，最后得出不同的id，然后就没在测试，想想好像还真的没有在不同的同一种cpu上面测试过！感谢搂住，上班之后我重新测试我的程序！

http://expert.csdn.net/Expert/topic/1905/1905459.xml?temp=.9408533