+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع النظام و الذاكرة (https://delphi4arab.net/forum/forumdisplay.php?fid=20)
+--- الموضوع : الحصول على اسم الـ cpu (/showthread.php?tid=7869)
الحصول على اسم الـ cpu - أبو معاذ - 21-05-2016
السلام عليكم ورحمة الله وبركاته ،
كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم :
كود :
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;