get CPU id (很全的)[13]

            cyrixinstead.l1icache:=getextendedl1icache;
            cyrixinstead.l2cache:=getextendedl2cache;
           end
       else begin
             cyrixinstead.name:=cyrix686n;
             cyrixinstead.vendor:=getvendorstring;
             cyrixinstead.frequency:=getcpufrequency;
             cyrixinstead.family:=family;
             cyrixinstead.model:=model;
             cyrixinstead.stepping:=stepping;
             cyrixinstead.l1dcache:=32;
             cyrixinstead.l1icache:=32;
             cyrixinstead.l2cache:=0;
            end;
     end;
end;

function tcpudata.genericcpu:tcpurec;
var family,model,stepping:byte;
    efamily,emodel,estepping:byte;
begin
if not getcpuidsupport then
    begin
     messagedlg('this cpu does not support the cpuid instruction!!!',mtwarning,
     [mbok],0);
     genericcpu.name:='unidentified cpu';
     genericcpu.vendor:='unidentified';
     genericcpu.frequency:=0;
     genericcpu.family:=-1;
     genericcpu.model:=-1;
     genericcpu.stepping:=-1;
     genericcpu.l1dcache:=0;
     genericcpu.l1icache:=0;
     genericcpu.l2cache:=0;
    end
else
begin
  getfms(family,model,stepping);
if getmaxextendedfunctions>0 then
     begin
      genericcpu.name:=getextendedcpuname;
      genericcpu.vendor:=getvendorstring;
      genericcpu.frequency:=getcpufrequency;
      cpudata.getextendedfms(efamily,emodel,estepping);
      genericcpu.family:=efamily;
      genericcpu.model:=efamily;
      genericcpu.stepping:=estepping;
      genericcpu.l1dcache:=getextendedl1dcache;
      genericcpu.l1icache:=getextendedl1icache;
      genericcpu.l2cache:=getextendedl2cache;
     end
else begin
       genericcpu.name:=genericcpun;
       genericcpu.vendor:=getvendorstring;
       if family<=4 then genericcpu.frequency:=0
       else genericcpu.frequency:=getcpufrequency;
       genericcpu.family:=family;
       genericcpu.model:=model;
       genericcpu.stepping:=stepping;
       genericcpu.l1dcache:=0;
       genericcpu.l1icache:=0;
       genericcpu.l2cache:=0;
      end;
end;
end;
end.