Температура процессора (delphi)

[XE5]

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

[raxp]

...об этом и речь, универсального нет решения. Ибо системы развиваются, появляются новые с новыми фишками.

алгоритмы чтения датчиков

алгоритм не определяет метод доступа и место доступа.

[XE5]

алгоритм не определяет метод доступа и место доступа.

Естественно не определяет. Эта информация зашита в сам алгоритм.

[Simply-Art]

Я вообще думал что это стандартные данные системы. Не нужны ни какие особые заморочки. А тут выясняется что в ос ничего не читается. Странно для меня конечно, но да ладно

[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