Fórum Alguém pode fazer este teste ? #517416

Alguém poderia testar essa rotina em computadores diferentes com a mesma marca e modelo de motherboard para saber se o retorno desta função será o mesmo ?

procedure motherboard;
var a,b,c,d: LongWord; M: String;
begin
asm
push EAX
push EBX
push ECX
push EDX

mov eax, 1
db $0F, $A2
mov a, EAX
mov b, EBX
mov c, ECX
mov d, EDX

pop EDX
pop ECX
pop EBX
pop EAX
end;

M := inttohex(a,8) + inttohex(c,8) + inttohex(d,8);
showmessage(M);
end;