Температура процессора (как определить на Делфи)

Posted by obzor under Delphi, Топик-обзор

Пишу программу для мониторинга состояния процессора и памяти, получилось сделать загруженность процессора и памяти, а вот с температурой беда, на просторах интернета нет стабильно рабочего кода. Может кто-нибудь подскажет правильное направление в этом вопросе по поводу просмотра температуры процессора.
Вот моя программа не хватает состояние температуры:

Replicant

Windows Management Instrumentation (WMI)

Aliens_wolfs

WMI не работает ну не на моей машине, Вы сами то пробовали то что предлагаете, я пробовал все это но не один пример у меня не работает. Я бы и не просил бы помощи)
giveio.sys у меня есть и лежит он в System32, тоже не работает. Из под админа все это тоже пробовал у меня win7 процессор intel.

На просторах интернета код который из программы диагностики MBM5 вытаскивает нужную инфу

Но как то мне эта идея тоже не понравилась, ищу универсальный код который будет работать на любом ПК

type
 TBusType = (btISA, btSMBus, btVIA686ABus, btDirectIO);
 TSMBType = (smtSMBIntel, smtSMBAMD, smtSMBALi, smtSMBNForce, smtSMBSIS);
 TSensorType = (stUnknown, stTemperature, stVoltage, stFan, stMhz,
   stPercentage);

 TSharedIndex = record
   iType: TSensorType; // type of sensor
   Count: integer; // number of sensor for that type
 end;

 TSharedSensor = record
   ssType: TSensorType; // type of sensor
   ssName: array[0..11] of AnsiChar; // name of sensor
   sspadding1: array[0..2] of Char; // padding of 3 byte
   ssCurrent: Double; // current value
   ssLow: Double; // lowest readout
   ssHigh: Double; // highest readout
   ssCount: LongInt; // total number of readout
   sspadding2: array[0..3] of Char; // padding of 4 byte
   ssTotal: Extended; // total amout of all readouts
   sspadding3: array[0..5] of Char; // padding of 6 byte
   ssAlarm1: Double; // temp & fan: high alarm; voltage: % off;
   ssAlarm2: Double; // temp: low alarm
 end;

 TSharedInfo = record
   siSMB_Base: Word; // SMBus base address
   siSMB_Type: TBusType; // SMBus/Isa bus used to access chip
   siSMB_Code: TSMBType; // SMBus sub type, Intel, AMD or ALi
   siSMB_Addr: Byte; // Address of sensor chip on SMBus
   siSMB_Name: array[0..40] of AnsiChar; // Nice name for SMBus
   siISA_Base: Word; // ISA base address of sensor chip on ISA
   siChipType: Integer; // Chip nr, connects with Chipinfo.ini
   siVoltageSubType: Byte; // Subvoltage option selected
 end;

 TSharedData = record
   sdVersion: Double; // version number (example: 51090)
   sdIndex: array[0..9] of TSharedIndex; // Sensor index
   sdSensor: array[0..99] of TSharedSensor; // sensor info
   sdInfo: TSharedInfo; // misc. info
   sdStart: array[0..40] of AnsiChar; // start time
   sdCurrent: array[0..40] of AnsiChar; // current time
   sdPath: array[0..255] of AnsiChar; // MBM path
 end;

 PSharedData = ^TSharedData;

var  

 SharedIndex: TSharedIndex;
 SharedSensor: TSharedSensor;
 SharedInfo: TSharedInfo;
 SharedData: PSharedData;

var
 myHandle, i, TotalCount: Integer;
 S: string;
begin
 result := false;
 myHandle := OpenFileMapping(FILE_MAP_READ, False, "$M$B$M$5$S$D$");
 if myHandle = 0 then
   Exit;

 SharedData := MapViewOfFile(myHandle, FILE_MAP_READ, 0, 0, 0);
 with SharedData^ do
 begin
   Label1.Caption := FloatToStr(sdVersion);
   TotalCount := sdIndex[0].Count +
     sdIndex[1].Count +
     sdIndex[2].Count +
     sdIndex[3].Count +
     sdIndex[4].Count;
   DataGrid.RowCount := TotalCount + 1;
   for i := 0 to TotalCount - 1 do
   begin
     DataGrid.Cells[0, i + 1] := IntToStr(i);
     with sdSensor[ i] do
     begin
       case ssType of
         stUnknown: S := "unknown";
         stTemperature: S := "temperature";
         stVoltage: S := "voltage";
         stFan: S := "fanspeed";
         stMhz: S := "clockspeed";
         stPercentage: S := "percentage";
       end;
       DataGrid.Cells[1, i + 1] := S;
       DataGrid.Cells[2, i + 1] := ssName;
       DataGrid.Cells[3, i + 1] := Format("%.7g", [ssCurrent]);
       DataGrid.Cells[4, i + 1] := Format("%.7g", [ssLow]);
       DataGrid.Cells[5, i + 1] := Format("%.7g", [ssHigh]);
       DataGrid.Cells[6, i + 1] := Format("%.7g", [ssAlarm1]);
       DataGrid.Cells[7, i + 1] := Format("%.7g", [ssAlarm2]);
       DataGrid.Cells[8, i + 1] := IntToStr(ssCount);
     end;
   end;
 end;

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

Случайные статьи

• Рассылка. Выпуск 108
• With … do и вызов функции. Как получить указатель на сам объект?
• Нахождение точки на медиане треугольника в координатной плоскости.
• Как передать параметр в поток?
• Как сбросить БИОС (BIOS) на ноутбуке Sony.
• Отключение, включение кнопки средствами JavaScript
• Базы данных в Delphi
• Изменение цвета label на время
• Определить мерность массива
• Прочитать значение раздела в реестре