CSDN问答：怎样根据文件的扩展名,找到系统中该类型文件默认的显示图标

最新推荐文章于 2019-10-10 16:47:48 发布

TechnoFantasy

最新推荐文章于 2019-10-10 16:47:48 发布

阅读量1.9k

点赞数

分类专栏： CSDN问答 Delphi 文章标签：扩展 imagelist integer file

本文链接：https://blog.csdn.net/TechnoFantasy/article/details/405539

版权

Delphi 同时被 2 个专栏收录

18 篇文章 0 订阅

订阅专栏

CSDN问答

14 篇文章 0 订阅

订阅专栏

http://community.csdn.net/Expert/topic/3923/3923699.xml?temp=.3165094

调用SHGetFileInfo函数，假设sExt是你的文件名。

var
sfi:TSHFileInfo;
i:Integer;
begin
//获得文件的扩展名
i:= slIcon.IndexOf(sExt);
if i>-1 then
    Result:=i
else
begin
    {获得与sfLocal相关联的文件信息，返回
    值保存在sfi中，sfi中的hIcon是文件的关联图标局柄}
    SHGetFileInfo(PChar(sExt),FILE_ATTRIBUTE_NORMAL,
                  sfi, Sizeof(sfi),
                  (SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_SMALLICON ));
    {调用ImageList_AddIcon函数将sfi.hIcon添加到图标列表控件ImageList1中}
    i:=ImageList_AddIcon(ImageList1.Handle,sfi.hIcon);
    //函数调用成功返回值i为图标在imagelist1中的索引，将slIcon中与索引相同的
    //string的值设定为sfLocal的扩展名
    if i>-1 then
      slIcon.Strings[i]:=sExt;
    Result:=i;
end;
end;