www.pudn.com > POLL_SRC.rar > CPUid.pas

unit CPUid; 
 
interface  
 
uses  
 SysUtils;  
 
type 
 TCPUID = array[1..4] of Longint;  
 TVendor = array [0..11] of char;  
 
 function GetCPUID: TCPUID; assembler; register;  
 function GetCPUVendor: TVendor; assembler; register;  
 function GetCPUInfo: string;  
 
implementation  
 
 
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;  
 
function GetCPUVendor: TVendor; assembler; register;  
asm  
 PUSH    EBX          {Save affected register}  
 PUSH    EDI  
 MOV     EDI,EAX      {@Result (TVendor)}  
 MOV     EAX,0  
 DW      $A20F        {CPUID Command}  
 MOV     EAX,EBX  
 XCHG    EBX,ECX     {save ECX result}  
 MOV      ECX,4  
@1:  
 STOSB  
 SHR     EAX,8  
 LOOP    @1  
 MOV     EAX,EDX  
 MOV      ECX,4  
@2:  
 STOSB  
 SHR     EAX,8  
 LOOP    @2  
 MOV     EAX,EBX  
 MOV      ECX,4  
@3:  
 STOSB  
 SHR     EAX,8  
 LOOP    @3  
 POP     EDI          {Restore registers}  
 POP     EBX  
end;  
 
function GetCPUInfo: string;  
var  
 CPUID: TCPUID;  
 I: Integer;  
 S: TVendor;  
begin  
 for I := Low(CPUID) to High(CPUID) do  
   CPUID[I] := -1;  
     
 CPUID := GetCPUID;  
 
 S := GetCPUVendor;  
 
 Result := S + IntToHex(CPUID[1], 8) + IntToHex(CPUID[2], 8)  
            + IntToHex(CPUID[3], 8)  
            + IntToHex(CPUID[4], 8);  
end;  
 
 
end.