get CPU id (很全的)[11]

                   genuineintel.l2cache:=0;
                  end
else
if family=6 then begin
                   genuineintel.name:=intelp6n;
                   genuineintel.vendor:=getvendorstring;
                   genuineintel.frequency:=getcpufrequency;
                   genuineintel.family:=family;
                   genuineintel.model:=model;
                   genuineintel.stepping:=stepping;
                   genuineintel.l1dcache:=p6cachel1di;
                   genuineintel.l1icache:=p6cachel1di;
                   genuineintel.l2cache:=p6cachel2;
                  end
else
if family=$f then begin
                    if checkpentium4 then
                     begin
                      genuineintel.name:='intel pentium(r) 4';
                      genuineintel.vendor:=getvendorstring;
                      genuineintel.frequency:=getcpufrequency;
                      genuineintel.family:=32;
                      genuineintel.model:=model;
                      genuineintel.stepping:=stepping;
                      genuineintel.l1dcache:=8;
                      genuineintel.l1icache:=12;
                      genuineintel.l2cache:=256;
                     end
                    else if checkithanium then
                      begin
                       genuineintel.name:='intel ithanium';
                       genuineintel.vendor:=getvendorstring;
                       genuineintel.frequency:=getcpufrequency;
                       genuineintel.family:=64;
                       genuineintel.model:=model;
                       genuineintel.stepping:=stepping;