Buscar

Serial Placa Mae

Código

var
a,b,c,d: LongWord;
CPUID: 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

{
mov eax, 1
db $0F, $A2
mov a, EAX
mov b, EBX
mov c, ECX
mov d, EDX
}
end;
CPUID:=inttohex(a,8) + '-' + inttohex(b,8) + '-' + inttohex(c,8) + '-' + inttohex(d,8);
ShowMessage(CPUID);
end;

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 31/08/09
Por: Alexandre Pidhorodeckyj
Visualizada: 9253 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009