دخول

seddik_xp

الكود التالي سيعمل معك إن شاء الله

كود :
var
  Reg : TRegistry;
begin
   Reg := TRegistry.Create;
   Try
       Reg.RootKey := HKEY_LOCAL_MACHINE;
       If Reg.OpenKeyReadOnly('\SOFTWARE\Realtek\Network\') Then
       begin
         Memo1.Clear;
         Memo1.Lines.Add('Install: ' +Reg.ReadString('install'));
         Memo1.Lines.Add('Reboot: ' +Reg.ReadString('reboot'));
         Memo1.Lines.Add('Version: '+Reg.ReadString('version'));
   end;
  reg.CloseKey;
   Finally
     Reg.Free;
   end;
end;

كن حذر من مسار الرجيستري HKEY_LOCAL_MACHINE فهو يحتاج إلى صلاحيات الممسؤول للقراءة و الكتابة إليه.
لذلك وجب فتح الــ KEY للقراءة فقط Reg.OpenKeyReadOnly بدل إستخدام Reg.OpenKey التي لا تعمل إلا مع حساب المسؤول في حالة المسار HKEY_LOCAL_MACHINE .

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة