This Loading of
dll is solved voila gone!
The only thing is this code
Problem code look at it muetze atleast now.
What i think its the problem well the
label2.Caption:=IntTostr(Delta);
becouse author of Core Temp said that it can be writting in 1 hour if you have a driver
Zitat:
David says:
maybe couse i convert the dword to integer?
Arthur says:
most likely
Arthur says:
I told you no integers...
Delphi-Quellcode:
procedure InitializeDll(); stdcall; external 'WinRing0.dll';
procedure DeinitializeDll(); stdcall; external 'WinRing0.dll';
function Rdmsr(index:DWORD;eax:dWORD;edx:DWORD): DWord; stdcall; external 'WinRing0.dll';
var
EAX,EDX:DWORD;
delta:dword;
TJunction:integer;
begin
Rdmsr($019C,EAX,EDX);
If HiWord(EAX) and $8000 > 0 then
Delta := hiWord(EAX) and $7F;
label2.Caption:=IntTostr(Delta);