如何把启动项目显示在ListView中

Question

什么启动项目 ？ windows 的？

Answer 1

以下是显示在listbox中的，怎么在listview中显示
  procedure TForm1.Button2Click(Sender: TObject);
var
  reg:Tregistry;
begin
  reg:=Tregistry.Create;
  reg.RootKey:=hkey_current_user;
  reg.OpenKey('CONTROL PANEL',false);
  reg.GetKeyNames(Listbox1.Items);
  reg.free;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
   Myreg : TRegistry;
begin
    MyReg := Tregistry.create();
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    MyReg.GetValueNames(listbox1.items);
    MyReg.CloseKey;
end;

Answer 3

请看清楚，我是想显示在Listview中
有谁知道怎么弄吗？

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
   Myreg : TRegistry;
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
  s_items : TStrings;
begin
    s_items := TStringList.create;
    MyReg := Tregistry.create();
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    MyReg.GetValueNames(s_items);
    MyReg.CloseKey;  with ListView1 do
  begin
    for I := 0 to s_items.Count - 1 do
    begin
      ListItem := Items.Add;
      Listitem.Caption := s_items[i];
      ListItem.ImageIndex := I;
    end;
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 1';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 2';
  end;end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
   Myreg : TRegistry;
   i:integer;
begin
    MyReg := Tregistry.create();
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    MyReg.GetValueNames(listbox1.items);
    for i:=0 to listbox1.Items.Count-1 do
      TreeView1.Items.Add(nil,ListBox1.Items.Strings[i]);
    MyReg.CloseKey;
end;

Answer 6

谁能告诉我如何把run下面主键的值都显示出来，也就是程序文件的路径，显示在listview中

Answer 7

把 hjd_cw() 的代码改一下就好了！但是效率不高，要多次打开注册表！
procedure TForm1.Button1Click(Sender: TObject);
var
  Myreg : TRegistry;
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
  s_items : TStrings;
  temp:String;
begin
    s_items := TStringList.create;
    MyReg := Tregistry.create();
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    MyReg.GetValueNames(s_items);
    MyReg.CloseKey;
  with ListView1 do
  begin
    ViewStyle := vsReport;
    for I := 0 to s_items.Count - 1 do
    begin
      ListItem := Items.Add;
      Listitem.Caption := s_items[i];
      MyReg := Tregistry.create();
      MyReg.RootKey := HKEY_LOCAL_MACHINE;
      MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
      temp:=MyReg.ReadString(s_items[i]);
      MyReg.CloseKey;
      ListItem.SubItems.Add(temp);
      ListItem.ImageIndex := I;
    end;
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 1';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 2';
  end;
end;

Answer 8

最好能在第一次打开注册表的时候利用s_items的items.count创建一个动态数组，循环取值！

Answer 9

第二种方法，动态创建数组！
procedure TForm1.Button1Click(Sender: TObject);
var
  Myreg : TRegistry;
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
  s_items : TStrings;
  temp:array of String;
begin
    s_items := TStringList.create;
    MyReg := Tregistry.create();
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    MyReg.GetValueNames(s_items);
    SetLength(temp,s_items.Count);
    for I:=0 to s_items.Count-1 do
      temp[I]:=MyReg.ReadString(s_items[I]);
    MyReg.CloseKey;
    with ListView1 do
    begin
      ViewStyle := vsReport;
      for I := 0 to s_items.Count - 1 do
      begin
        ListItem := Items.Add;
        Listitem.Caption := s_items[I];
        ListItem.SubItems.Add(temp[I]);
        ListItem.ImageIndex := I;
      end;
      NewColumn := Columns.Add;
      NewColumn.Caption := 'Column 1';
      NewColumn := Columns.Add;
      NewColumn.Caption := 'Column 2';
    end;
end;