Mikro İşlemci (CPU) Bilgilerini Alma

function MIBBilgileriGetir(var ID1, ID2, ID3, ID4, IslemciTipi, Aile, Model, Derece, Imalatci : string) : Boolean;
var
  CPUID : TCPUID;
  I : Integer;
  S : TVendor;
begin
  for I := Low(CPUID) to High(CPUID) do
    CPUID[I] := -1;
  if IsCPUID_Available then
  begin
    CPUID := GetCPUID;
    ID1 := IntToHex(CPUID[1], 8);
    ID2 := IntToHex(CPUID[2], 8);
    ID3 := IntToHex(CPUID[3], 8);
    ID4 := IntToHex(CPUID[4], 8);
    IslemciTipi := IntToStr(CPUID[1] shr 12 and 3);
    Aile := IntToStr(CPUID[1] shr 8 and $F);
    Model := IntToStr(CPUID[1] shr 4 and $F);
    Derece := IntToStr(CPUID[1] and $F);
    Imalatci := GetCPUVendor;
    result := true;
  end
  else
  begin
    ID1 := '';
    ID2 := '';
    ID3 := '';
    ID4 := '';
    IslemciTipi := '';
    Aile := '';
    Model := '';
    Derece := '';
    Imalatci := '';
    Result := false;
  end;
end;