значки программ

[admin-one]

Доброго времени суток , и так , мне тут понадобилось вывести в листБокс все установленные программы , вывел так :

var
   MyList: TStringList;
   MyRegistry: TRegistry;
   i: Integer;
   Str: string;

 begin
     MyRegistry:=TRegistry.Create;
     MyList:=TStringList.Create;
         with MyRegistry do
            begin
            RootKey:=HKEY_LOCAL_MACHINE;
            if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
            False)=True then GetKeyNames(MyList);
            CloseKey;
            for i:=0 to MyList.Count-1 do
               begin
               RootKey:=HKEY_LOCAL_MACHINE;
               OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
               MyList[i], False);
               Str:=ReadString('DisplayName');
               if Str<>'' then
               list.items.Add(ReadString('DisplayName'));
               CloseKey;
               end;
              end;

end;

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

[саша40]

-TListView
-Не, нет. Не слышал!

[grominfo]

У Tlistcolumn элемента коллекции Columns есть свойство imageindex

[bakanaev]

http://delphidevelop.ru/publ/12-1-0-192
Как получить иконки думаю сами разберетесь. Удачи