Odczyt temperatury z procesota w delphi albo asm - pod delph

Witam [cya] ,
czy może ma ktoś z was może kod w asm lub delphi, do odczytu temperatury procesora, albo np. kod źródłowy jakiegoś programu monitorującego system, cpu, etc?

Jeżeli mnacie jakieś pliki, to wyślijcie ja na: [email protected]

Jeżeli macie odczyt w asm, to najlepiej aby go można wykorzystać w Delphi, np. podobnie jak ten kod do odczytu szybkości procesora:

function TForm1.GetCpuSpeed: Extended;
var
  t: DWORD;
  mhi, mlo, nhi, nlo: DWORD;
  t0, t1, chi, clo, shr32: Comp;
begin
  shr32 := 65536;
  shr32 := shr32 * 65536;
  t := GetTickCount;
  while t = GetTickCount do begin end;
<asm>  asm
    DB 0FH
    DB 031H
    mov mhi,edx
    mov mlo,eax

end;
while GetTickCount < (t + 1000) do begin end;

  asm
    DB 0FH
    DB 031H
    mov nhi,edx
    mov nlo,eax

end;
chi := mhi; if mhi < 0 then chi := chi + shr32;
clo := mlo; if mlo < 0 then clo := clo + shr32;
t0 := chi * shr32 + clo;
chi := nhi; if nhi < 0 then chi := chi + shr32;
clo := nlo; if nlo < 0 then clo := clo + shr32;
t1 := chi * shr32 + clo;
Result := (t1 - t0) / 1E6;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := FloatToStr(GetCpuSpeed) + 'mhz';
end;</delphi>

ten temat byl poruszany na forum baaaaardz wiele razy, i o ile dobrze pamietam (nie daje glowy ze pamieta :P) to chyba nieznaleziono odpowiedzi. Poszukaj na forum i poczytaj sobie.

Ale temperature nie odzczytuje sie z procesora tylko z czujników przy procesorze

• zwroc sie do producenta plyty o udostepnienie opisu technicznego i poszukaj gdzie to jestw pamieci trzymane, kazdy model plyty moze miec inaczej

• uzyj borland SPY i uruchom MTB Monitor - sprobuj poszukac jaka droga ida komunikaty

• uruchom zewnetrzny MTB Monitor i zmus go do logowania stanu co sekunde i monitoruj plik logu

• poszukaj na forum expert-exchange

• nie zakladaj ponownie tego topica jezeli zniknie