Odczyt nazwy i prędkości CPU z rejestru

Q: Odczyt nazwy i prędkości CPU z rejestru

[crayon-675353b897aa8496394281/] Autor: AnoXic

Q: Odczyt nazwy i prędkości CPU z rejestru

[crayon-675353b897aa8496394281/] Autor: AnoXic

uses registry;


procedure GetCPU(var name:string;var Mhz:integer);

var reg:Tregistry;


begin

reg:=tregistry.Create;

reg.RootKey:=HKEY_LOCAL_MACHINE;

reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',false);

name:=reg.ReadString('ProcessorNameString');

mhz:=reg.ReadInteger('~MHz');

reg.Free;

end;

uses registry;

procedure GetCPU(var name:string;var Mhz:integer);

var reg:Tregistry;

begin

reg:=tregistry.Create;

reg.RootKey:=HKEY_LOCAL_MACHINE;

reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',false);

name:=reg.ReadString('ProcessorNameString');

mhz:=reg.ReadInteger('~MHz');

reg.Free;

end;

Autor: AnoXic