如何得到远程ICO文件图标[整理]

有关如何用 SHGetFileInfo 或者其它函数取得 FTP 服务器上图标的问题

 

用以下函数不行，返回值为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;
end;
其中DATA是FTP服务器上文件的全名，如： /public_html (文件夹或文件)

特此求教。
希望不要用读注册表取文件类型对应图标和检查文件夹的方法。  

 

 

来自： wuyi, 时间：1999-9-14 17:16:00, ID：133959

ExtractAssociatedIcon不知是否是Winapi中的函数？  我想应该能根据
文件后缀取得图标。  

 

 

来自： 3h, 时间：1999-9-15 19:53:00, ID：134295

我是想利用它的扩展名，取得此一类型的图标，而且是图标在系统 IMAGELIST 中的INDEX，仅此而已。看来