get CPU id (很全的)[9]

[入库:2005年8月18日] [更新:2007年3月25日]

本文简介:选择自 ypyrock 的 blog

                   authenticamd.frequency:=0;
                   authenticamd.family:=family;
                   authenticamd.model:=model;
                   authenticamd.stepping:=stepping;
                   authenticamd.l1dcache:=8;
                   authenticamd.l1icache:=8;
                   authenticamd.l2cache:=0;
                  end
else
if family=5 then begin
                   if getmaxextendedfunctions>4 then
                      begin
                       authenticamd.name:=getextendedcpuname;
                       authenticamd.vendor:=getvendorstring;
                       authenticamd.frequency:=getcpufrequency;
                       getextendedfms(efamily,emodel,estepping);
                       authenticamd.family:=efamily;
                       authenticamd.model:=emodel;
                       authenticamd.stepping:=estepping;
                       authenticamd.l1dcache:=getextendedl1dcache;
                       authenticamd.l1icache:=getextendedl1icache;
                       authenticamd.l2cache:=0;
                      end
                   else
                   begin
                    authenticamd.name:=amdk5n;
                    authenticamd.vendor:=getvendorstring;
                    authenticamd.frequency:=getcpufrequency;
                    authenticamd.family:=family;
                    authenticamd.model:=model;
                    authenticamd.stepping:=stepping;
                    authenticamd.l1dcache:=16;
                    authenticamd.l1icache:=16;
                    authenticamd.l2cache:=0;

本文关键:delphi cpu id
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top