Mega Code Archive

 

Categories / Delphi / System

 

Get the cpu name- speed

// this code will get the cpu identifier from the windows registry uses Registry; function CPUname: string; var Reg: TRegistry; begin CPUname := ''; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then CPUname := Reg.ReadString('Identifier'); finally Reg.Free; end; end; // this code will get the cpu speed from the windows registry 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;