listView

最新推荐文章于 2023-09-22 14:56:31 发布

seagull327

最新推荐文章于 2023-09-22 14:56:31 发布

阅读量388

点赞数

分类专栏：控件文章标签： listview microsoft integer windows

本文链接：https://blog.csdn.net/haiou327/article/details/6612910

版权

控件专栏收录该内容

20 篇文章 0 订阅

订阅专栏

 var
  reg: TRegistry;
  KeyList: TStringList;
  intIdx: Integer;
  Itm: TListItem;
  s: string;
begin
  try
    KeyList := TStringList.Create;
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
    reg.GetValueNames(KeyList);
      lv1.SmallImages:=il1;
      Itm.ImageIndex := 8;
    for intIdx := 0 to KeyList.Count - 1 do
    begin
      Itm := lv1.Items.Add;
      s := reg.ReadString(KeyList[intidx]);
      Itm.Caption := IntToStr(intidx + 1);
      Itm.SubItems.add(keylist[intidx]);
      itm.SubItems.Add('Reg_Sz');
      Itm.SubItemImages[0] := 1;
      Itm.SubItemImages[1] := 8;
      Itm.SubItemImages[2] := 3;
      Itm.SubItems.Add(s);
    end;
 lv1.Items[2].SubItems.Strings[2]:='非诚勿扰';      //指定写入
  finally
    reg.CloseKey;
    KeyList.Free;
  end;

end;