誰有办法把当前桌面上的所有图标加入到一个imagelist中？ ( 积分: 200 )

誰有办法把当前桌面上的所有图标加入到一个imagelist中？

誰有办法把当前桌面上的所有图标加入到一个imagelist中？

procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;a:TBitmap;<br> &nbsp;sr: TSearchRec;<br>begin<br> &nbsp;a:=TBitmap.Create;<br> &nbsp;if FindFirst('c:/', faAnyFile, sr) = 0 then<br> &nbsp;begin<br> &nbsp; &nbsp;a.LoadFromFile('c:/'+sr.Name);<br> &nbsp; &nbsp;ImageList1.Add(a,a);<br><br> &nbsp; &nbsp;while FindNext(sr) = 0 do<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;a.LoadFromFile('c:/'+sr.Name);<br> &nbsp; &nbsp; &nbsp;ImageList1.Add(a,a);<br> &nbsp; &nbsp;end ;<br> &nbsp; &nbsp;FindClose(sr);<br> &nbsp;end;<br>end;<br>以上是大概的思路，具体的再优化一下。

chenyfree306:你的方法是加某一路径下的文件的图标，但像　我的电脑　网上邻居等不是文件，无法取出

可以的，你参考 delphi 的 自带的demo ， virtual list， 里面就有，<br>关键是 用 命名空间代替 文件名；<br>我现在没有时间，不然我给你做个demo。

谢谢xuxiaohan，我查一下DEMO