core2duotemp.c to core2duotemp.pas

[Razor]

Well this wont work

Delphi-Quellcode:

procedure TMainFrm.JvThreadTimer1Timer(Sender: TObject);
var
msr:tmsr;
omcdrv:tmsrio;
x:dword;
s:string;
o:integer;
begin
SetThreadAffinityMask(jvthreadtimer1.Thread.Handle,$0008);//for the 4th core
omcdrv.ReadMSR($19C,msr);

x := msr.LowPart;
x:=x shr 16 and $0000ff      ;
s:=Format('%8.8x', [x]);
o:=100-HexToInt(S);
rzlabel8.caption:=inttostr(o)+' °C';
end;