Вывод ключей реестра в виде checkbox'в

[kabardinec]

Люди, помогите разобраться..
Есть код, который выводит ключи реестра в столбик.. т.е.

procedure TForm1.Button1Click(Sender: TObject);
var reg:tregistry;
 
begin
  reg:= tregistry.create;
    reg.Access:= KEY_WOW64_64KEY or KEY_ALL_ACCESS;
 
Begin
 reg := TRegistry.Create;
 With reg Do
 Begin
   Rootkey := HKEY_Current_User;
   If OpenKey('\Console', True) Then
   Begin
     GetValueNames(Form1.ListBox1.Items);
   End;
   CloseKey;
 End;
end;
 end;

Вопрос: как сделать так, чтобы эти ключи выводились с checkbox'ами в списке?
Сколько не рылся в Яндексе и Гугле, ниче похожего и близкого не нашел, и сам не могу додуматься

[tsar_]

Вместо ListBox использовать CheckListBox.

[Noor]

1. Оформляйте сообщение как полагается, а именно - вставляйте код в [ CODE] [ /CODE]
2. GetValueNames(Form1.CheckListBox1.I tems) ;

[kabardinec]

О люди добрые... сколько я мучился....с этим..ппц просто...прям гора с плеч..спасибо!
Пользуясь случаем.. скажите пожалуйста...
А как эти Чеки запрограммировать, если заранее не известно сколько их там будет?
Просто код будет использоваться на нескольких ветках реестра и на разных компах..
В программировании я новичок-самоучка, поэтому такие простые глупые вопросы..

Сообщение от kabardinec

О люди добрые... сколько я мучился....с этим..ппц просто...прям гора с плеч..спасибо!
Пользуясь случаем.. скажите пожалуйста...
А как эти Чеки запрограммировать, если заранее не известно сколько их там будет?
Просто код будет использоваться на нескольких ветках реестра и на разных компах..
В программировании я новичок-самоучка, поэтому такие простые глупые вопросы..

Вопрос снимаю... разобрался!!!!!!

Сообщение от Noor

1. Оформляйте сообщение как полагается, а именно - вставляйте код в [ CODE] [ /CODE]
2. GetValueNames(Form1.CheckListBox1.I tems) ;

Подскажите пожалуйста.. Не могу разобраться с циклом во второй процедуре.. Нужно, чтобы выделенные чеки (это параметры реестра) по нажатию batton2 удалялись. А щас по нажатию удаляется только последний по счету выбранный, если выбрано несколько...

procedure TForm1.Button1Click(Sender: TObject);
const KEY_WOW64_64KEY = $0100;
var
    regOS: tregistry;


  begin
   CheckListBox1.Clear;
    regOS := tregistry.create;
    regOS.Access:= KEY_WOW64_64KEY or KEY_ALL_ACCESS;
 begin
 regOS := TRegistry.Create;
 With regOS Do
 Begin
      regOS.RootKey:=HKEY_CURRENT_USER;
      regOS.OpenKey('Test',true);
      GetValueNames(Form1.CheckListBox1.Items);
  end;
End;
 end;


 procedure TForm1.Button2Click(Sender: TObject);
 var  Str:string;
      i : integer;
      reg:Tregistry;

begin
reg := tregistry.create;
  try
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Test',true);
         begin
            for i:=0 to CheckListBox1.Items.Count-1 do    { Запускается цикл}
            if CheckListBox1.Checked[i] then        {Если i-й элемент выделен то …}
            Str:=CheckListBox1.Items[i];    {Добавить в строку Str текст элемента}
            reg.DeleteValue (Str);

          end;

  finally
    reg.free;
  end;
end;

[Noor]

Вы проверяли, что у вас передается в переменную Srt ?

[kabardinec]

судя по тому, как программа работает, передается только последний отмеченный...

Сообщение от kabardinec

судя по тому, как программа работает, передается только последний отмеченный...

ох..сорри.. выбирается наименьший.. если параметры 1, 2, 3 отмечены, выберет 1 и только его.

Сообщение от kabardinec

судя по тому, как программа работает, передается только последний отмеченный...

Если в цикле более одной инструкции, тело цикла следует заключать в рамки begin..end

все! от души братан!

Сообщение от northener

Если в цикле более одной инструкции, тело цикла следует заключать в рамки begin..end

Спасибо! Работает! а вопрос такой.. можно ли как-нибудь совместить stringGrid и checklistbox? точнее...нужно чтобы в stringGrid выводился параметры реестра в виде checkbox'ов.. думаю с GetValueName реализовать не выйдет..а с помощью задания цикла, который каждый раз будет обращаться в реестр и будет добавлять в StringGrid параметры по одиночке и в виде CheckBox'ов.. Вопрос: КАК?

[northener]

Сообщение от kabardinec

Спасибо! Работает! а вопрос такой.. можно ли как-нибудь совместить stringGrid и checklistbox? точнее...нужно чтобы в stringGrid выводился параметры реестра в виде checkbox'ов.. думаю с GetValueName реализовать не выйдет..а с помощью задания цикла, который каждый раз будет обращаться в реестр и будет добавлять в StringGrid параметры по одиночке и в виде CheckBox'ов.. Вопрос: КАК?

TStringGrid рекомендуется заменить на TListView в режиме ViewStyle = vsReport. Чекбоксы в нем свои родные.

[kabardinec]

а..там вариант потом будет к элементам списка по одиночке обратиться? просто хочу так сделать... есть 2 колонки.. в первой параметры реестра, во второй ее значение...

[northener]

Сообщение от kabardinec

а..там вариант потом будет к элементам списка по одиночке обратиться? просто хочу так сделать... есть 2 колонки.. в первой параметры реестра, во второй ее значение...

Будет. Всё будет (кроме коньяка и девок в ажурных чулках

[kabardinec]

Упсо братишка