Aktuelle CPUFrequenz abfragen (SpeedStep)

[hathor]

Zitat von DelTurbo:

Nu mach dir aber nicht soviel Arbeit.
Gruß

War schon in meinem "Depot"... nur kleine Änderungen gemacht...

Na, also - geht doch! Alles klar!

[DelTurbo]

Achso, den CPUNamen habe ich nicht weg gemacht. Der zeigt da nix an.

[hathor]

Zeigt der folgende Code etwas an?

Delphi-Quellcode:

Function GetProzessorName: String;
Var Reg: TRegistry;
Begin
   Result := 'Processor ?';
   Reg := TRegistry.Create(KEY_READ);
   Try
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False);
     Result := Reg.ReadString('ProcessorNameString');
   Finally
     Reg.free;
   End;
End;

Im Anhang geändertes Programm:
Wenn CT keinen CPU-Namen liefert, wird aus der Registry gelesen.

[DelTurbo]

Zitat von hathor:

Zeigt der folgende Code etwas an?

Jap...

Intel(R) Core(TM) i7-4790K CPU @ 4.00GHz

[hathor]

Manche CPU-Namen sind zu lang, deshalb Form geändert.

[hathor]

Cpu-Namen vertikal zentriert.

[p80286]

Auf einem i3 (M380) läuft das Programm nicht.
---------------------------
CT-READER
---------------------------
Zugriffsverletzung bei Adresse 00409EDB in Modul 'CTREADER_20151114.exe'. Lesen von Adresse 00000A18.
---------------------------
OK
---------------------------

Gruß
K-H

Edith:
Pardon ich hatte nicht an coretemp gedacht, jetzt läufts!