كيف تغير id الجهاز ؟ - نسخة قابلة للطباعة

كيف تغير id الجهاز ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تغير id الجهاز ؟ (/showthread.php?tid=3292)

كيف تغير id الجهاز ؟ - fhol - 19-07-2011

السلام عليكم

كيف لي تغير id الجهاز بواسطة edit1 ؟؟
بحيث اضع id جديد في edit1 و بعد الضغط على زر1 يتغير
كمعلومات مسبقة : تمكنت من استخراج id الجهاز برمجيا من الريجستري
و قد وجدت شروحات مسبقة بتغير id انطلاقا من regedit و هنا تنقصني فكرة التغير

كيف تغير id الجهاز ؟ - paix144 - 19-07-2011

و عليكم السلام و رحمة الله
لمعرفةID الجهاز

كود :
function TForm1.GetReadString(SelectRootKey: HKEY; SelectKey: string; Name: string): string;
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, False);
        Result := ReadString(name);
      finally
       Free;
      end;
    end;
end;

كود :
Edit1.Text:=GetReadString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId');

لتغييرID الجهاز

كود :
procedure TForm1.SetWriteString(SelectRootKey: HKEY; SelectKey: string; NewValueName: string; Value: string);
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, True);
        WriteString(NewValueName, Value);
      finally
       Free;
      end;
    end;
end;

كود :
SetWriteString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId', Edit1.Text);

لم أجربها بعد
حذار يجب عليك إعادة تشغيل نسخة الويندوز
بالتوفيق Smile

كيف تغير id الجهاز ؟ - fhol - 20-07-2011

مشكور اخي paix144 لكن هناك خطأ
تفضل بمشاهدة طريقة الكود التي كتبتها و الخطأ في :

كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
 with TRegistry.Create do
    begin
      try
     [color=Red]   RootKey := SelectRootKey;[/color]
        OpenKey(SelectKey, True);
        WriteString(NewValueName, Value);
      finally
       Free;
      end;
    end;
end;
    SetWriteString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId', Edit1.Text);
end;

كيف تغير id الجهاز ؟ - paix144 - 20-07-2011

لا يوجد خطأ أخي
الدالة

كود :
procedure TForm1.SetWriteString(SelectRootKey: HKEY; SelectKey: string; NewValueName: string; Value: string);
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, True);
        WriteString(NewValueName, Value);
      finally
       Free;
      end;
    end;
end;

هنا لاستدعاء الدالة

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWriteString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId', Edit1.Text);
end;

راجع دروس الدورة
بالتوفيق اخي Smile

كيف تغير id الجهاز ؟ - paix144 - 21-07-2011

جرب ما في المرفقات اخي

كيف تغير id الجهاز ؟ - fhol - 22-07-2011

بارك الله فيك اخي و جزاك الله كل الخير 100/100