التعامل مع الregestry

بسم الله الرحمن الرحيم

الأخ الكريم وفقك الله ورعاك...

السلام عليكم ورحمة الله وبركاته..

بالنسبة للتعامل مع الريجستري قم بما يلي:

1. أضف الوحدة Registry في القسم uses.

2. عرف متغيَّر من نوع الريجستري في أي حدثٍ شئت مثلاً Button1Click. كالتالي:

var
Reg: TRegistry;
3. قم بإنشاء كتلة الريجستري بعد begin. كما في:
Reg:= TRegistry.Create;
4.قم بتعيين أي قسم تريد فتحه في الريجستري. من خلال:
Reg.RootKey:= HKEY_CURRENT_USER;
يمكنك استبدال HKEY_CURRENT_USER بوحدات الريجستري.
5. افتح المفتاح المناسب من خلال الامر التالي:
Reg.OpenKey('Software\Microsoft',False);
حيث يمكنك كتابة أي قيمة أخرى. تدل false على أنه إن لم يكن المفتاح موجود فلا تنشئه استبدلها بـ True لإنشاء المفتاح إن لم يكن موجود.
لكتابة قيم استخدم مثلاً Reg.WriteString('Ahmad'); و...
إليك هذا المثال الذي يكتب القيمة:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
try
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('Software\ArabTeam2000\Delphi',False);
Reg.WriteString('Ahmad','I love Delphi');
finally
Reg.Free;
end;
end;
لقراءة القيمة  استخدم.
procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
try
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('Software\ArabTeam2000\Delphi',False);
Edit1.Text:= Reg.ReadString('Ahmad');
finally
Reg.Free;
end;
end;

والسلام عليكم ورحمة الله وبركاته

السلام عليكم و رحمة الله وبركاته

الأخ(ة) الكريم(ة) BASRAH لك جزيل الشكر و جزاك الله خيراً عنا

و أكرمك بفضله و السلام

أخوكم ياسر

احسنت يا Basrah ... حفضك الله ورعاك

شرح واضح ومفهوم ..... تشكر علية