关于获取CPU 硬盘，主板序列号的问题

Question

请都各路高手，我想对和程序加密
要获得主板，CUP ，硬盘序列号
请问在DELPHI 中用什么方法获得

Answer 1

function GetCpuId:longint;
var
  temp:longint;
begin
  asm
    PUSH    EBX
    PUSH    EDI
    MOV     EDI,EAX
    MOV     EAX,1
    DW      $A20F
    MOV     TEMP,EDX
    POP     EDI
    POP     EBX
  end;
  result:=temp;
end;