Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Авг

Получить температуру процессора

Posted by Chas under Delphi

XE5
Температурные датчики не имеют стандартизации, поэтому и нет универсального способа прочитать температуру ЦП. В программах типа Everest это учтено, программа в начале распознаёт тип железа, а потом применяет алгоритмы чтения датчиков подходящие для данного типа. Если углубиться в этот вопрос, то можно создать универсальный алгоритм, подходящий для любых систем. Подход типа «спрошу на форуме» не катит.

Vapaamies
Заинтересовался, чуток поигрался. MSAcpi_ThermalZoneTemperature показывает температуру, соответствующую строчке THRM в программе HWMonitor. Это та самая странная температура из всех, у меня она в данный момент равна 22 °C.

Скрипт на VBS, которым игрался (административных прав не требует, что странно):

strServer = "." 
Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")

Set objInstances = objWMI.InstancesOf("MSAcpi_ThermalZoneTemperature")  
On Error Resume Next

For Each objInstance in objInstances

    With objInstance

        s = "Current CPU Temperature: " & .CurrentTemperature / 10 - 273 & "°C" & chr(10)

        s = s & "Temperature Sampling Period: " & .SamplingPeriod & " seconds" & chr(10)

        s = s & "Active Trip Point Count: " & .ActiveTripPointCount & chr(10)

        WScript.Echo s

    End With

On Error Goto 0

Next

тема на форуме