openlibsys.org Open source driver

[Razor]

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);