Einzelnen Beitrag anzeigen

Razor
(Gast)

n/a Beiträge
 
#50

Re: core2duotemp.c to core2duotemp.pas

  Alt 29. Mai 2008, 20:17
Ahh hathor tooo late!You are late...

I've made it 2 months ago.. aswell my driver and the K8(Athlon 64,Athlon X2) and K10(Phenom X4 and X3 and Opteron) readings all internal sensor.Shows same as coretemp..I did it my own no forum asking nothing..so yes

Delphi-Quellcode:
  function intelcore(cpuaffinity:dword):string;
var
msrvalue:tmsr;
eax,x,edx:dword;
s:string;
o:integer;

begin

RDMSRex($19C,msrvalue,cpuaffinity);
If msrvalue.LowPart and $8000 > 0 then
begin

x := eax;
x:=x shr 16 and $0000ff ;
s:=Format('%8.8x', [x]);
o:=TJunction-HexToInt(S);
result:=inttostr(o)+' °C';
end;
end;
//Rdmsr($EE,msrvalue);
//IF msrvalue.HiPart and $40000000 = 0 then TJunction := 100 Else TJunction := 85;
  Mit Zitat antworten Zitat