Aktuelle CPUFrequenz abfragen (SpeedStep)

[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.