السلام عليكم
أنا أستعمل هذا الكود
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
begin
reg := Tregistry.Create;
reg.RootKey := hkey_current_user;
try
reg.OpenKey('\Software\Microsoft',true);
reg.WriteString('test',edit1.Text);
except;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
لكنه لايعمل معي ( الصورة) فلا يتم إنشاء الرجستر
رابط الصورة
http://www.kuwaiti.co/ubw1fxfjfsvx
![[صورة: ubw1fxfjfsvx]](http://www.kuwaiti.co/ubw1fxfjfsvx)
مع ملاحظة اني أستعمل ويندوز 7
وشكرا.
عليك بمراجعة الرجستري فقط يكون دلفي قد لبى طلباتك
الصورة المرفقة تدل على أنك تقوم بانشاء متغير في الرجستري في العنوان التالي:
hkey_current_user\Software\Microsoft
بينما نلاحظ أنك لم تقم بإسدال المفتاح واكتفيت بالبحث عند
hkey_current_user
أنقر مزدوجا على hkey_current_user وافتح مفتاح Software ثم Microsoft
(18-03-2016, 08:15 PM)Manarsoft كتب : [ -> ]عليك بمراجعة الرجستري فقط يكون دلفي قد لبى طلباتك
الصورة المرفقة تدل على أنك تقوم بانشاء متغير في الرجستري في العنوان التالي:
hkey_current_user\Software\Microsoft
بينما نلاحظ أنك لم تقم بإسدال المفتاح واكتفيت بالبحث عند
hkey_current_user
أنقر مزدوجا على hkey_current_user وافتح مفتاح Software ثم Microsoft
شكرا جزيلا لك أخي الفاضل على المساعدة و بارك الله فيك
لا أصدق بأن الجواب كان بين عيني كل هذا الوقت و لم أره
يمكنك تحميل المكون التالي: TmRegistry
لقد كان رفيقي لوقت طويل قبل ظهور Absolute Database
كنت أستعمله في تخزين وتحميل إعدادات برامجي