الحصول على اسم الـ cpu

[أبو معاذ]

السلام عليكم ورحمة الله وبركاته ،
كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم :

كود :

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;