Esta função é compatível desde o Delphi 7 até versões mais recentes.
A última versão testada foi no Delphi 10 Seatle.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | function GetCPUID: string; var A, B, C, D: LongWord; begin try asm mov eax,1 db $0F, $A2 mov a,EAX mov b,EBX mov c,ECX mov d,EDX end; Result := IntToHex(A, 8) + '-' + IntToHex(B, 8) + '-' + IntToHex(C, 8) + '-' + IntToHex(D, 8); except Result := '0000-GCPU-TICF-ERRO'; end; end; |
Obs: Por utilizar assembly, o código acima é compatível com a compilação 32 bits.
Enviado por Ivan Cesar.
