Температура HDD GetCPUMhz

[falsebegin]

есть такая функция для температуры все работает и показывает в label1

function GetCPUMhz: String;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
      dw 310Fh
      mov TimerLo, eax
      mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
      dw 310Fh
      sub eax, TimerLo
      sbb edx, TimerHi
      mov TimerLo, eax
      mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := Format('%d', [Trunc(TimerLo / (1000.0 * DelayTime))]);
end;

procedure TForm6.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=GetCPUMhz;
end;

есть ли еше другие методы? мне надо получить температуру через timer в этом примере как можно это сделать?

'Температура: '+GetCPUMhz+#13#10; 

[R71MT]

а при чём здесь температура,
если код замеряет частоту процессора чз rdtsc ???

[R71MT]

чтобы получить темп.винта,
нужно читать его smart чз DeviceIoControl