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():可以得到文件擴展名
這些都是獲得應用程序相關信息的函數。