function GetNVDIATemp: integer;

type

  NvCplGetThermalSettings = function(WindowsMonitorNumber: UINT;pGpuTemp, pUmgebTemp, pSlowDownTemp: Pointer): BOOL;stdcall;

var

  hInstNvcpl: THandle;

  GetThermalSettings: NvCplGetThermalSettings;

  UmgebTemp, SlowDownTemp: cardinal;

begin

Result := 0;

UmgebTemp := 0;

SlowDownTemp := 0;

hInstNvcpl := LoadLibrary('nvcpl.dll');

if hInstNvcpl <> 0 then

   try

     GetThermalSettings:= GetProcAddress(hInstNvcpl,'NvCplGetThermalSettings');

     if Assigned(GetThermalSettings)  then

        GetThermalSettings(0, Addr(Result), Addr(UmgebTemp), Addr(SlowDownTemp));

    finally

        FreeLibrary(hInstNvcpl);

    end;

end;