• 取CPU系列号

    •  CPU系列号:  
        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   GetCPUIDStr:String;  
        var  
            CPUID:TCPUID;  
        begin  
            CPUID:=GetCPUID;  
            Result:=IntToHex(CPUID[1],8)+IntToHex(CPUID[2],8)+IntToHex(CPUID[3],8)+IntToHex(CPUID[4],8);  
        end  
         
        调用:  
        Edit1.text:=GetCPUIDStr;  

      标签: none

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号