core2duotemp.c to core2duotemp.pas

[hathor]

ExpressOrgChart by Developer Express Inc

What's this???

I accept source code only!

[Razor]

this is perfectly ok just test it and report what does it report when reading msrs.Becouse i get 0

[Razor]

Can someone test?

[Phoenix]

Razor: I'm personally going to ask our Admin, Daniel, to temporarily ban your account for at least 48 hours if you are pushing only a single more time! Treat this as a very, very last warning.

You have been told multiple times that pushing is not allowed. So do not push again.

[Razor]

Reply to my PM!And take action!

[Hador]

EDIT: Ich habe doch glatt eine Seite übersehen und auf 'n uralten Post geantwortet, sry :wall:

[Razor]

Yea and? :)

[Razor]

Well any new news on this?Seems nobody cares about this topic or is it just me

[hathor]

Zitat:

Zitat von Razor

Well any new news on this?Seems nobody cares about this topic or is it just me

Look@here:
http://www.delphipraxis.net/internal...=893921#893921

[Razor]

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 :lol:

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;