获得任何应用程序的图标

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()：可以得到文件扩展名

 

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