CPU Temperatur Auslesen

[bitsetter]

Moin,

zum Auslesen der CPU- und System Temperatur von meiner Gigabyte Hauptplatine benutze ich mittlerweile folgende Funktion:

Delphi-Quellcode:

function GetTempValue(Sensor: Byte): cardinal;
var
  hInstDll: THandle;
  Get_CPUTempValue: procedure(Sensor: Byte; pTemp: PCardinal) stdcall;
  Pfad: AnsiString;
begin
  Result := 0;
  Pfad := Format('%sw83781d.dll', [ExtractFilePath(Application.ExeName)]);
  if FileExists(Pfad) then
  begin
    hInstDll := LoadLibrary(PChar(Pfad));
    if hInstDll <> 0 then
      try
        Get_CPUTempValue:= GetProcAddress(hInstDll, 'W_Get_TempValue');
        if Assigned(Get_CPUTempValue)  then
          Get_CPUTempValue(Sensor, @Result);
      finally
        FreeLibrary(hInstDll);
      end;
  end
  else
    MessageDlg(Format('Die Datei "%s" konnte nicht gefunden werden!', [Pfad]), mtError , [mbOK], 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  System = 1;
  CPU = 2;
begin
  //caption:= inttostr(GetTempValue(CPU));
  caption:= inttostr(GetTempValue(System));
end;