Hoşgeldin, Ziyaretçi:

l Üye Ol
Tarih: 10-04-2020, Saat: 01:53
  • Tekno Destek Team'e Hoşgeldiniz
  • Teknoloji, Mobil, Oyun, Full İndir, Full Programlar İndir, İnternet, Haber Platforumu
  • Tekno Destek Team ( TDT )
Tekno Destek Team - Teknoloji, Mobil, Oyun, Full indir, İnternet, Haber > Donanım / Hardware > İşlemci > MIKRO İŞLEMCI (CPU) BILGILERINI ALMA >

 Yorum: 0    Görüntülenme: 870
Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
 MIKRO İŞLEMCI (CPU) BILGILERINI ALMA
05-01-2016, Saat: 16:36,
Çevrimdışı
Süper Moderatör
Süper Moderatör Grubu
Üyelik Tarihi: 02-01-2016
Mesajlar : 456
Konular:
Rep Puanı: 2
#1
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;


kara_kutu nickli üyenin imzası
VvXn7P.jpg
05-01-2016, Saat: 16:36
Cevapla



« Önceki Konu | Sonraki Konu »
Konuyu Okuyanlar: 1 Ziyaretçi



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  İŞLEMCI KULLANIMI kara_kutu 0 820 05-01-2016, Saat: 16:35
Son Yorum: kara_kutu
  CPU (IŞLEMCI) kara_kutu 0 1,277 05-01-2016, Saat: 16:31
Son Yorum: kara_kutu

Hızlı Menü:

Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB
© 2002-2020 MyBB Group.
Tasarım Tekno Destek Team © 2020