如何根据一个文件扩展名得到它相关联的图标？(50分)

liaolion · 2001-12-28

如何根据一个文件扩展名得到它相关联的图标？

microyzy · 2001-12-28

在注册表里读啊

liaolion · 2001-12-28

在注册表什么地方啊？

杜宝 · 2001-12-28

不用那么麻烦吧？ API 函数 ExtractAssociatedIcon 就是解决这个问题的。 别忘了引用ShellAPI单元哦！

卷起千堆雪tyn · 2001-12-28

宝宝啊，你说的是从文件中提取图标吧？ 可是问题好像是根据文件扩展名，得到关联图标的说～～～

Alex_Y · 2001-12-28

delphi有一个DEMO自己看吧，叫什么exp...什么的。

vine · 2001-12-28

uses shellapi; var     IconIndex : word;     h : hIcon; begin         IconIndex := 0;         h := ExtractAssociatedIcon(hInstance,                         PChar(filename),                         IconINdex);         //将图标显示出来DrawIcon(image1.Canvas.Handle,0,0,h); end;

liaolion · 2001-12-28

非也非也，我只有一个扩展名，就是三个字母。想得到关联的图标。

杜宝 · 2001-12-29

呵呵，做个小小的变通就是了嘛。 你在可以在一个临时文件夹下新建一个文件，零长度都行，如aaa 然后加上你的的扩展名如：.zip，形成aaa.zip 这样再读它的图标就是了。 只是ExtractAssociatedIcon可能在Win2000下不好使，换成ShGetFileInfo就好了 看这里： http://www.delphibbs.com/delphibbs/dispq.asp?lid=611351

940801 · 2001-12-29

SHGetFileInfo, flag 参数用 SHGFI_TYPENAME or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES;

honghs · 2001-12-29

有个atshell控件，也是读注册表的。现在都懒得看源码了。想要的留个email下来吧

liaolion · 2001-12-29

非常感谢honghs兄，我的EMail是：liao_wolf@163.com

卷起千堆雪tyn · 2001-12-30

这样来，获取某一类型扩展名的图标： function GetFileIcon(const Filename:String; SmallIcon:Boolean):HICON; var info:TSHFILEINFO;     Flag: Integer; begin   if SmallIcon then Flag:=(SHGFI_SMALLICON or SHGFI_ICON)   else Flag:=(SHGFI_LARGEICON or SHGFI_ICON);   SHGetFileInfo(Pchar(Filename),0,info,Sizeof(info),Flag);   Result:=info.hIcon; end;

易名烦 · 2003-02-14

得到Hicon后怎么把它加入到IMAGELIST中呢？

yzhshi · 2003-06-01

看来你真的适合酿酒，我也适合喝，哈哈。 这个问题的基本解决办法如下，不一定完全对，但是试验成功了。[8D] uses shellapi; function GetFileIcon(const Filename: String; SmallIcon: Boolean): HICON; var   info: TSHFILEINFO;   Flag: Integer; begin   if SmallIcon then     Flag := (SHGFI_SMALLICON or SHGFI_ICON)   else     Flag := (SHGFI_LARGEICON or SHGFI_ICON);   SHGetFileInfo(Pchar(Filename), 0, info, Sizeof(info), Flag);   Result := info.hIcon; end; procedure TForm1.BitBtn1Click(Sender: TObject); var   aa: TIcon; begin   aa := TIcon.Create;   aa.Handle := GetFileIcon('C:/1.mdb', True);   ImageList1.AddIcon(aa);   aa.Free; end;

如何根据一个文件扩展名得到它相关联的图标？(50分)

liaolion

Unregistered / Unconfirmed

microyzy

Unregistered / Unconfirmed

liaolion

Unregistered / Unconfirmed

杜宝

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

Alex_Y

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

liaolion

Unregistered / Unconfirmed

杜宝

Unregistered / Unconfirmed

940801

Unregistered / Unconfirmed

honghs

Unregistered / Unconfirmed

liaolion

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

易名烦

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

Similar threads