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