R
redboy
Unregistered / Unconfirmed
GUEST, unregistred user!
我用以下函数获取文件和文件夹的图标,不知如何获取系统图标,如‘我的电脑’‘ 网络邻居’等 ?<br>function GetFileIconIndex<br>(FileName:string):integer;<br> { 获取图标的序号函数 }<br>var<br> Ext:String;<br>begin<br> Ext:=FileName;<br> ShGetFileInfo(Pchar(Ext), 0, SHFileInfo,SizeOf(SHFileInfo), SHGFI_LARGEICON or<br> SHGFI_SYSICONINDEX or SHGFI_TYPENAME);<br> Result:=SHFileInfo.iIcon; <br> { 返回获取的图标序号 }<br>end;