獲得任何應用程序的圖標

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

 

這些都是獲得應用程序相關信息的函數。