كيف اضيف قيمه للريجستري

[M_Mori2010]

اخي الكريم للأضافة على الشكل التالي

PHP كود :

var
reg:TRegistry;
Begin
reg:=TRegistry.Create;
reg.rootkey:=HKEY_CURRENT_USER;
try
// هنا لأنشاء مجلد جديد
reg.Createkey('Software\Microsoft\اسم المجلد');
//
//هنا لفتح المجلد
reg.OpenKey('Software\Microsoft\اسم المجلد',false);
reg.writestring('www.delphi4arab.net',Edit1.Text);
reg.free;
except;
reg.free;
end; 


بالنسبة للأستيراد او الجلب على الشكل التالي

PHP كود :

Var 
regex:TRegistry;
Begin
regex:=TRegistry.Create;
regex.RootKey:=HKEY_CURRENT_USER;
try
// هنا حدد اسم المجلد او قم بأختيار مجلد
regex.OpenKey('Software\Microsoft\اسم المجلد',true);
//
Edit1.text:=regex.Readstring('www.delphi4arab.net');
regex.Free;
except;
regex.Free;
end;
End; 


بالتوفيق