Alguém sabe usar esta função?

Delphi

07/07/2003

function GetCPUID : TCPUID; assembler; register;
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Resukt}
MOV EAX,1
DW $A20F {CPUID Command}
STOSD {CPUID[1]}
MOV EAX,EBX
STOSD {CPUID[2]}
MOV EAX,ECX
STOSD {CPUID[3]}
MOV EAX,EDX
STOSD {CPUID[4]}
POP EDI {Restore registers}
POP EBX
end;


Gostaria de saber como faço para usar esta função que me retorna o serial do CPU?

:twisted:


Netcrusher

Netcrusher

Curtidas 0

Respostas

Nildo

Nildo

07/07/2003

Utlize este .PAS para obter o qe vc deseja

http://www.optimalcode.com/Guido/cpuinfo.zip <- download
http://www.optimalcode.com/Guido/cpuinfo.html <- documentacao


GOSTEI 0
Kfe

Kfe

07/07/2003

Você terá que trabalhar com várias criadas no delphi dentro do código ASM para guardar os resultados da instrução CPUID. Dependendo do dado, ele poderá ser guardado em variáveis comum como string e serem exibidas diretamente em labels ou edits.


GOSTEI 0
POSTAR