21-05-2016, 08:26 PM
السلام عليكم ورحمة الله وبركاته ،
كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم :
كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم :
كود :
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;