CPUID Intel&AMD

[Razor]

Someone test this please....

Delphi-Quellcode:

function TCpuinfo.getcoremulti_current:integer;
var
eax,edx:dword;
begin
  RdMSR($198, eax,edx) ;
  result:=eax SHR 8 and $ff// Current multiplier
end;

function TCpuinfo.getcoremulti_max:integer;
var
eax,edx:dword;
begin
  RdMSR($198, eax,edx) ;
  result:=edx SHR 8 and $ff// Maximum multiplier
end;

function TCpuinfo.getcoremulti_low:integer;
var
eax,edx:dword;
begin
  RdMSR($198, eax,edx) ;
  result:=edx SHR 24 and $ff// Low multiplier
end;