Редактирование записи в реестре

[YTP0]

Доброго времени суток.
Вот главное окно проги - браузер реестра виндоус.
При нажатии на какую то запись в реестре(на листвью1) у меня появляется новая форма с эдитом для редактирования записи. Вопрос такой: какой строчкой я могу отредактировать текущую выбранную запись в листвью? Ну т.е. чтобы по нажатию баттон1 текст из едит1 заносился в значение записи реестра. Заранее спасибо

[Stilet]

А какими методиками ты его считываешь?

[YTP0]

procedure TRegForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var s: string;
KeyInfo : TRegKeyInfo;
ValueNames : TStringList;
i : Integer;
DataType : TRegDataType;
begin
 ListView1.Items.Clear;
 s:= GetFullNodeName(Node);
 if not Reg.OpenKeyReadOnly(s) then Exit;
 Reg.GetKeyInfo(KeyInfo);
 if KeyInfo.NumValues<=0 then Exit;
 ValueNames := TStringList.Create;
 Reg.GetValueNames(ValueNames);
 for i := 0 to ValueNames.Count-1 do
  with ListView1.Items.Add do
   begin
   Caption := ValueNames[i];
   DataType := Reg.GetDataType(ValueNames[i]);
   Case DataType of
    rdString: s := Reg.ReadString(ValueNames[i]);
    rdInteger: s:= '0x'+IntToHex(Reg.ReadInteger(ValueNames[i]),8);
    rdBinary: s:='Binary';
   else s:= '???';
   end;
   SubItems.Add(s);
   ImageIndex :=1;
   end;
 ValueNames.Free;
end;

и

procedure TRegForm.ShowSubKeys(ParentNode: TTreeNode;depth: Integer);
var ParentKey: string;
 KeyNames : TStringList;
 KeyInfo : TRegKeyInfo;
 CurNode : TTreeNode;
 i : Integer;
 begin

   if rootkeystr='HKEY_CLASSES_ROOT' then
    begin
      Reg.RootKey:=HKEY_CLASSES_ROOT;
    end;
       if rootkeystr='HKEY_CURRENT_USER' then
    begin
      Reg.RootKey:=HKEY_CURRENT_USER;
    end;
    if rootkeystr='HKEY_LOCAL_MACHINE' then
    begin
      Reg.RootKey:=HKEY_LOCAL_MACHINE;
    end;
    if rootkeystr='HKEY_USERS' then
    begin
      Reg.RootKey:=HKEY_USERS;
    end;
    if rootkeystr='HKEY_CURRENT_CONFIG' then
    begin
      Reg.RootKey:=HKEY_CURRENT_CONFIG;
    end;


 Cursor := crHourglass;
 TreeView1.Items.BeginUpdate;
 ParentKey := GetFullNodeName(ParentNode);
 if ParentKey<>'' then
  Reg.OpenKey(ParentKey, true)
 else
  Reg.OpenKey('\', true);
 Reg.GetKeyInfo(KeyInfo);
 if KeyInfo.NumSubKeys<=0 then Exit;
 KeyNames := TStringList.Create;
 Reg.GetKeyNames(KeyNames);
 While ParentNode.GetFirstChild<>nil do ParentNode.GetFirstChild.Delete;
 if (KeyNames.Count>0) then for i:=0 to KeyNames.Count-1 do
    begin
     Reg.OpenKeyReadOnly(ParentKey+'\'+KeyNames[i]);
     Reg.GetKeyInfo(KeyInfo);
     CurNode := TreeView1.Items.AddChild(ParentNode,KeyNames[i]);
     if KeyInfo.NumSubKeys>0 then
      begin
      TreeView1.Items.AddChild(CurNode,'');//
      end;
    end;
 KeyNames.Free;
 TreeView1.Items.EndUpdate;
 Cursor := crDefault;
end;

[YTP0]

up!!!!!!!!!!!!