获得任何应用程序的图标

最新推荐文章于 2023-06-17 11:08:46 发布

原创最新推荐文章于 2023-06-17 11:08:46 发布 · 629 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #扩展 #测试 #c

本文介绍了一种使用Delphi从应用程序文件中提取图标的实用方法，并提供了完整的代码示例。该方法利用了ShellAPI和ExtractIconEx函数来获取指定文件的大、小图标，并将它们分别存储到不同的ImageList中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses
ShellAPI;

procedure TForm1.getIcon(filename:string);                        //获得应用程序的图标
var
icLarge,   icSmall:   TIcon;
hLarge,   hSmall:   HICON;

il1,il2:TImageList;
begin
icLarge   :=   TIcon.Create();
icSmall   :=   TIcon.Create();
ExtractIconEx(PAnsiChar(filename),0,hLarge,hSmall,1);     //filename为应用程序文件名（绝对路径）
icLarge.Handle   :=   hLarge;
icSmall.Handle   :=   hSmall;
il1.AddIcon(icLarge);                                                        //把程序图标分大、小图标，存在不同的地方
il2.AddIcon(icSmall);
end;

测试通过，很好用。

此外：

Application.ExeName：可以返回应用程序的全路径+文件名

A　ExtractFileName()：可以得到文件名
B　ExtractFilePath()：可以得到全路径
C　ExtractFileExt()：可以得到文件扩展名

这些都是获得应用程序相关信息的函数。