Red de conocimiento informático - Material del sitio web - Cómo utilizar DELPHI para obtener el número de serie de la CPU

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: