Cómo utilizar DELPHI para obtener el número de serie de la CPU
El código de muestra es el siguiente: procedimiento?TForm1.Button1Click(Sender:?TObject type
TCPUID?=?array[1..4]?of?longint; función?GetCPUID :?TCPUID; asm
PUSHEBX PUSHEDI MOV?EDI, EAX MOV?EAX, 1 DW?$A20F STOSD MOV?EAX, EBX STOSD MOV.EAX, ECX STOSD MOV?EAX, EDX STOSD POP?EDI POP?EBX end;
var aCpuId:?TCpuID;
begin aCpuId?GetCPUID; ShowMessage('CPU? El número de serie es:?') ?IntToHex( aCpuId[4] , 8)? ?IntToHex(aCpuId[1], 8));
end;
Captura de pantalla del código en ejecución:
Comparación con el real: