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

[maryos]

السلام عليكم
احاول صنع برنامج يضيف قيمه للريجستري

كود :

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]

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

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]

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/showthr...p?tid=7324

[maryos]

شكرااا لكم

انا اقصد
عم اصنع برنامج به 4 edit.text
الاوله تضيف مفتاح
الثانيه تضيف مفتاح داخل المفتاح الذي صنه اول edit
والثالثه تضيف قيمه
والرابعه تعدل على القيمه

انا استطيع عمل هذا
لاكن انا راح اطرح البرنامج بلمنتديات
ولا اعرف ما القيمه الذي سوف يضيفها الناس
لهذا لن استطيع فتحها
فقررت افتح المفتاح الذي موجود في edit.text

ولاكن لم استطع

[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;

هذا ينفع اخي فقط غير اسم الاديت وضع كود التصدير والاستيراد في نفس البوتون