get CPU id (很全的)[10]

                   end;
                  end
else if family>5 then
                 begin
                  authenticamd.name:=getextendedcpuname;
                  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:=getextendedl2cache;
                 end;


end;
function tcpudata.genuineintel:tcpurec;
var family,model,stepping:byte;
begin
getfms(family,model,stepping);
if family=4 then begin
                   genuineintel.name:='intel 486';
                   genuineintel.vendor:=getvendorstring;
                   genuineintel.frequency:=0;
                   genuineintel.family:=family;
                   genuineintel.model:=model;
                   genuineintel.stepping:=stepping;
                   genuineintel.l1dcache:=8;
                   genuineintel.l1icache:=8;
                   genuineintel.l2cache:=0;
                  end
else
if family=5 then begin
                   genuineintel.name:=intelp5n;
                   genuineintel.vendor:=getvendorstring;
                   genuineintel.frequency:=getcpufrequency;
                   genuineintel.family:=family;
                   genuineintel.model:=model;
                   genuineintel.stepping:=stepping;
                   genuineintel.l1dcache:=p5cachel1di;
                   genuineintel.l1icache:=p5cachel1di;