درخواست راهنمایی جها کار با ریجستری

سلام دوستان ؛ من میخواهم یک برنامه بسازم که کارش با ریجستری » مشکلم اینجاست چه زور میتونم همه ی value های یک key (کلید) رو در یک listbox پیاده کنم ،و همچنین سوال دوم اینکه چه طوری داده داخل value رو تغییر بدهم ...

سلام به شما دوست عزیز
کد برای ایجاد بک کلید :
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('RealEstate', true) ;
Reg.CreateKey('RealEstate_Data') ;
Reg.OpenKey('RealEstate_Data', true) ;
Reg.WriteString('Day','0');
Reg.CloseKey;
Reg.Free;
ShowMessage(' I? ????E?? EEE OI ');

و برای تغییر آن :
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('RealEstate' , true) ;
Reg.CreateKey('RealEstate_Data') ;
Reg.OpenKey('RealEstate_Data', true) ;
Edit1.Text:=Reg.ReadString('Day');
Reg.CloseKey;
Reg.Free;

امید که کارتو راه بیاندازه .

ممنون ولی سوال اصلی من این نبود ،سوال اصلی من اینه :

نقل قول:

---

چه جور میتونم همه ی value های یک key (کلید) رو در یک listbox نمایش بدهم

---

شاید بشه با یک حلقه for تک ، نک اونا رو ادد کرد ولی به دو تا چیز نیازه که من نمیدونم چه طور گیرش بیارم ،
1- تعداد value های یک کلید ، ( برای شمارنده حلقه )
2- اندیس value های یک کلید ،( برای وارد کردن value به listbox )
چه زوری اینا رو گیر بیارم و اینکه آیا راهی دیگری هست که اینهمه دنگو فنگ نداشته باشه ، (کامپونتی و... )

سلام

اين نسخه اي از دلفي كه نصب كرديد راهنما نداره؟!

بعد از اين همه مدت هنوز ياد نگرفتيد از راهنماي خود دلفي استفاده كنيد،‌ حالا جستجو توي اينترنت بماند.

GetKeyNames
GetValueNames

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  Val:TStringList;
  I:Integer;
begin
  Reg:=TRegistry.Create;
  try
    Val:=TStringList.Create;
    try
      Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section to look for within the registry
      if not Reg.OpenKey(Edit1.Text,False) then
        ShowMessage('Error opening key')
      else
      begin
        Reg.GetValueNames(Val);

        for I:=0 to Val.Count-1 do
        begin
          ShowMessage(Edit1.Text + Chr(13) +
                      'has an Entry Called '+Val.Strings[I]+Chr(13)+
                      'With a Value of '+Reg.ReadString(Val.Strings[I]));
        end;
        if MessageDlg('Ok to delete the key and lose all these values?'
                    ,Mtinformation,[mbYes,mbNo],0)=mryes then
          Reg.DeleteKey(Edit1.Text);

      end;
    finally
      Val.Free;
    end;
  finally
    Reg.Free;
  end;
end;

---

یه سوال چطوری نوع کلید رو تشخیص بدیم!؟..

noneforce جان می گم چقدر به جسنجو حساسی ها ، معذت می خوام اصلا یادم نبود ، سعی می کنم دیگه از این سوتی ها ندم