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;