Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Mikro İşlemci (CPU) Bilgilerini Alma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
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;
 
Üst Alt