Jméno procesoru

Opět jeden z velmi krátkých a jednoduchým tipů. Jméno procesoru si zjistíme velmi snadno ze systémového registru, proto nezapomeňte na použití knihovny Registry. Samotný kód je pouze jednoduché čtení údajů z registru, jak jsme jej používali již mnohokrát při podobných příležitostech, takže pro pravidelné čtenáře by možná stačilo uvést jen větev, kde se údaj nachází. Nicméně pro úplnost je zde celá funkce a použití:
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(CPUname);
end;