+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اضيف قيمه للريجستري (/showthread.php?tid=4812)
كيف اضيف قيمه للريجستري - maryos - 26-12-2012
السلام عليكم
احاول صنع برنامج يضيف قيمه للريجستري
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
reg:= TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
try
reg.OpenKey('exefile\shell',False);
reg.CreateKey(edit1.text);
finally
reg.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
reg:= TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
try
[color=Red] reg.OpenKey('exefile\shell\edit1.text',False);[/color]
reg.CreateKey('command');
finally
end;
end;
end.كيف افتح القيمه السابقه مع edit.text
reg.OpenKey('exefile\shell\edit1.text',False);
كيف افتحها حتى اضيف قيمه
reg.CreateKey('command');
وشكرا
كيف اضيف قيمه للريجستري - M_Mori2010 - 27-12-2012
اخي الكريم للأضافة على الشكل التالي
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;
بالتوفيق
كيف اضيف قيمه للريجستري - onexite - 27-12-2012
PHP كود :
procedure TForm1.btn3Click(Sender: TObject);
begin
with TRegistry.Create do
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('\*\shell\', true) then
begin
if OpenKey(InputBox('Imag up :: ','ShellName : ','Image up')+'\command', true) then
WriteString('', '"'+Application.ExeName+'" "%1"');
end;
finally
Free;
end;
end;
http://www.delphi4arab.net/forum/showthread.php?tid=7324
كيف اضيف قيمه للريجستري - maryos - 27-12-2012
شكرااا لكم
انا اقصد
عم اصنع برنامج به 4 edit.text
الاوله تضيف مفتاح
الثانيه تضيف مفتاح داخل المفتاح الذي صنه اول edit
والثالثه تضيف قيمه
والرابعه تعدل على القيمه
انا استطيع عمل هذا
لاكن انا راح اطرح البرنامج بلمنتديات
ولا اعرف ما القيمه الذي سوف يضيفها الناس
لهذا لن استطيع فتحها
فقررت افتح المفتاح الذي موجود في edit.text
ولاكن لم استطع
كيف اضيف قيمه للريجستري - M_Mori2010 - 27-12-2012
إقتباس :اخي الكريم للأضافة على الشكل التالي
كود 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;
هذا ينفع اخي فقط غير اسم الاديت وضع كود التصدير والاستيراد في نفس البوتون