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;

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

mikro � şlemci cpu bilgilerini alma