Получение Серийного Номера Процессора

[Lomanu4]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string; _ecx,_eax,_edx:longword;
begin
asm
    mov eax,1
    db $0F,$A2
    mov _eax,eax
end;
asm
    mov eax,3
    db $0F,$A2
    mov _ecx,ecx
    mov _edx,edx
end;
    s := IntToHex(_eax, 8);
  s1 := IntToHex(_edx, 8);
  s2 := IntToHex(_ecx, 8);
  Insert('-', s, 5);
  Insert('-', s1, 5);
  Insert('-', s2, 5);
  ShowMessage('Serial Number: '+s + '-' + s1 + '-' + s2);
end;

 

[Petya]

drink