关于CheckListBox的初始化问题？

Question

程序启动时先读入“HKEY_CLASSES_ROOT\DelphiProject\Shell\Open\command”下
的各项数据到CheckListBox中,全部都设置为选中状态,然后增加“HKEY_CLASSES_ROOT\DelphiProject\Shell\Open\dpr”中的各项数据到CheckListBox的中,并设置状态为未选中????????

Answer 1

可以！
请告诉我怎样把“HKEY_CLASSES_ROOT\DelphiProject\Shell\Open\command”下的各项数据到CheckListBox中

Answer 2

可以！
请告诉我怎样把“HKEY_CLASSES_ROOT\DelphiProject\Shell\Open\command”下的各项数据到CheckListBox中.用短信发给我

Answer 3

begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CLASSES_ROOT;
  if Reg.OpenKey('DelphiProject\Shell\Open\command', True) then 
    begin
      Reg.GetValueNames(CheckListBox1.Items);
      Reg.CloseKey;
    end;
  Reg.Free;
end;

Answer 4

var
  Reg: TRegistry;
  i: Integer;
  ss: TStrings;
begin
  ss := TStringList.Create;
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CLASSES_ROOT;
  if Reg.OpenKey('DelphiProject\Shell\Open\command', True) then
    begin
      Reg.GetValueNames(ss);
      CheckListBox1.Items := ss;
      for i := 0 to ss.Count - 1 do
        CheckListBox1.Checked[i] := True;
      Reg.CloseKey;
    end;
  if Reg.OpenKey('DelphiProject\Shell\Open\command', True) then
    begin
      Reg.GetValueNames(ss);
      for i := 0 to ss.Count - 1 do
        CheckListBox1.Items.Add(ss[i]);
      Reg.CloseKey;
    end;
  Reg.Free;
  ss.Free;
end;