3
3h
Unregistered / Unconfirmed
GUEST, unregistred user!
如题。<br>用以下函数不行,返回值为0:<br>procedure TForm1.ListView1GetImageIndex(Sender: TObject; Item: TListItem);<br>Const<br> Mode = SHGFI_ICON or SHGFI_SYSICONINDEX;<br>Var<br> info : TSHFileInfo;<br> P : ^String;<br>begin<br> If Item.ImageIndex = -1 then<br> begin<br> FillChar(Info,SizeOf(TSHFileInfo),0);<br> P := Item.Data;<br> SHGetFileInfo(PChar(P^), 0, Info, SizeOf(TSHFileInfo), Mode);<br> Item.ImageIndex := Info.iIcon;<br> end;<br>end;<br>其中DATA是FTP服务器上文件的全名,如: /public_html (文件夹或文件)<br><br>特此求教。<br>希望不要用读注册表取文件类型对应图标和检查文件夹的方法。