[原创](现代Delphi 12指南):[macOS 64bit App开发]: 如何获取目标App的程序图标?

最新推荐文章于 2025-06-11 11:29:14 发布

原创最新推荐文章于 2025-06-11 11:29:14 发布 · 1.4k 阅读

16 ·

CC 4.0 BY-SA版权

文章标签：

#macos #Delphi #Delphi 12 #程序图标 #NSDictionary

Delphi随想专栏收录该内容

36 篇文章

订阅专栏

[作者]
常用网名: 猪头三
出生日期: 1981.XX.XX
企鹅交流: 643439947
个人网站: 80x86汇编小站
编程生涯: 2001年~至今[共24年]
职业生涯: 22年
开发语言: C/C++、80x86ASM、Object Pascal、Objective-C、C#、R、Python、PHP、Perl、
开发工具: Visual Studio、Delphi、XCode、C++ Builder、Eclipse
技能种类: 逆向驱动磁盘文件大数据分析
涉及领域: Windows应用软件安全/Windows系统内核安全/Windows系统磁盘数据安全/macOS应用软件安全
项目经历: 股票模型量化/磁盘性能优化/文件系统数据恢复/文件信息采集/敏感文件监测跟踪/网络安全检测
专注研究: 机器学习、股票模型量化、金融分析

[序言]
在macOS平台上进行应用程序开发时, 常常需要与系统的资源和属性进行交互, 以实现特定的功能需求. 其中, 获取目标应用程序的图标是一项常见任务, 尤其在开发应用管理器、启动器或需要展示其他应用程序图标的工具时, 这一需求尤为突出. 借助Delphi 12强大的跨平台开发能力, 可以通过调用macOS的原生API, 轻松获取目标应用程序的图标文件路径.

[代码演示]

procedure TForm_main.Bn_GetAppIconClick(Sender: TObject);
var
  class_AppBundle: NSBundle;
  class_InfoDict: NSDictionary;
  pointer_Value_Icon: Pointer;
  str_IconFileName: string;
  str_resourcePath: string;
begin
  // 获取目标macOS App的Bundle
  class_AppBundle := TNSBundle.Wrap(TNSBundle.OCClass.bundleWithPath(StrToNSStr('/Applications/Meld.app')));
  // 获取目标macOS App的info属性
  class_InfoDict := class_AppBundle.infoDictionary;
  // 获取目标macOS App的程序图标文件名
  // 方法1
  //pointer_Value_Icon := class_InfoDict.objectForKey(StringToID('CFBundleIconFile'));
  // 方法2
  pointer_Value_Icon := class_InfoDict.valueForKey(StrToNSStr('CFBundleIconFile'));
  if pointer_Value_Icon <> nil then
  begin
    str_IconFileName := NSStrToStr(TNSString.Wrap(pointer_Value_Icon));
    TDialogService.ShowMessage('程序图标名称: ' + str_IconFileName);
  end
  else
  begin
    TDialogService.ShowMessage('未找到图标文件名称');
    Exit;
  end;

  // 获取目标macOS App的资源目录
  str_resourcePath := NSStrToStr(class_AppBundle.resourcePath);
  if TFile.Exists(TPath.Combine(str_resourcePath, str_IconFileName)) then
  begin
    // 显示图标的完整资源路径
    TDialogService.ShowMessage('程序图标完整路径: ' + TPath.Combine(str_resourcePath, str_IconFileName));
  end
  else
  begin
    TDialogService.ShowMessage('图标文件不存在');
  end;
end; // End Bn_GetAppIconClick()

[代码说明]
* 获取目标应用程序的Bundle:
* 使用TNSBundle.OCClass.bundleWithPath方法, 通过指定应用程序路径(如/Applications/Meld.app)创建NSBundle对象.
* StrToNSStr将Delphi字符串转换为macOS所需的NSString类型.

* 获取info.plist属性:
* 调用infoDictionary方法, 从NSBundle对象中提取应用程序的info.plist内容, 返回一个NSDictionary对象, 包含应用程序的配置信息

* 提取图标文件名:
* 使用valueForKey方法, 从class_InfoDict中查找CFBundleIconFile键对应的值, 该键通常存储应用程序图标的文件名.
* 将返回的指针通过TNSString.Wrap包装为NSString对象, 再用NSStrToStr转换为Delphi字符串

* 构建并验证图标完整路径:
* 通过resourcePath方法获取应用程序的资源目录路径, 并转换为字符串.
* 使用TPath.Combine组合资源目录路径和图标文件名, 生成完整路径.
* 通过TFile.Exists检查文件是否存在, 若存在则显示完整路径, 否则提示文件不存在

[总结]
Delphi 12中可以通过利用macOS的NSBundle和NSDictionary类, 获取目标应用程序的图标文件路径. 这一过程包括获取应用程序的Bundle、提取info.plist中的图标文件名、以及构建并验证图标的完整路径. 通过这种方式, 不仅可以轻松访问目标应用的图标, 还可以扩展到其他Bundle资源的操作. 这一技术为macOS平台上的应用开发提供了实用工具, 尤其适用于需要与系统资源深度交互的场景.