Habe jetzt was bei den Schweizern
was gefunden was zumindest bisher bei mir akzeptable Ergebnisse liefert:
Delphi-Quellcode:
uses
Registry;
function GetCpuSpeed: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False) then
begin
Result := IntToStr(Reg.ReadInteger('~MHz')) + ' MHz';
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;