Not following function returns a value of 0: procedure TForm1.ListView1GetImageIndex (Sender: TObject; Item: TListItem); Const Mode = SHGFI_ICON or SHGFI_SYSICONINDEX; Var info: TSHFileInfo; P: ^ String; begin If Item.ImageIndex = -1 then Begin Fillchar (INFO, SIZEOF (Tshfileinfo), 0); P: = Item.Data; SHGETFILEINFO (Pchar (p ^), 0, INFO, SIZEOF (TSHFILEINFO), MODE); item.ImageIndex: = Info.iicon; ; END; where DATA is full name, such as / public_html on the FTP server, such as / public_html (folder or file)
SHGetFileInfo can take by file type icons, such as: SHFILEINFO sfi; HIMAGELIST hil; ZeroMemory (& sfi, sizeof (sfi)); hil = SHGetFileInfo ( "zip.", FILE_ATTRIBUTE_NORMAL, & sfi, sizeof (sfi), SHGFI_USEFILEATTRIBUTES | SHGFI_ICON);
