Temperatur der Grafikkarte auslesen

[bitsetter]

Moin,

folgendes funktioniert bei mir unter WinXP mit einer GeForce nVidia 6600GT:

Delphi-Quellcode:

function GetGpuTemp: cardinal;
type
  NvCplGetThermalSettings = function(WindowsMonitorNumber: UINT; pGpuTemp, pUmgebTemp, pSlowDownTemp: Pointer): BOOL; stdcall;
var
  hInstNvcpl: THandle;
  GetThermalSettings: NvCplGetThermalSettings;
  UmgebTemp, SlowDownTemp: cardinal;
begin
  Result := 0;//GPU-Temperatur
  UmgebTemp := 0;//Umgebungstemperatur
  SlowDownTemp := 0;//Slowdown-Grenzwert

  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;