delphi4arab منتديات دلفي للعرب

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

كود :
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');
وشكرا

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

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; 

بالتوفيق

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

شكرااا لكم

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

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

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

إقتباس :اخي الكريم للأضافة على الشكل التالي

كود 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;

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

maryos

M_Mori2010

onexite

maryos

M_Mori2010