delphi – 如何使用FireMonkey跨平台应用程序使用默认浏览器打开

发布时间：2020-12-15 10:19:05 所属栏目：大数据来源：网络整理

导读：通常，我使用：ShellExecute(0，’OPEN’，PChar(edtURL.Text)，”，”，SW_SHOWNORMAL); 在所有平台(Windows和OSX)上，我如何具有相同的行为(在默认浏览器中打开链接)？解决方法在FireMonkey讨论区，我发现这个代码有关于NSWorkspace.URLForApplicationTo

通常，我使用：ShellExecute(0，’OPEN’，PChar(edtURL.Text)，”，”，SW_SHOWNORMAL);

在所有平台(Windows和OSX)上，我如何具有相同的行为(在默认浏览器中打开链接)？

解决方法

在FireMonkey讨论区，我发现这个代码有关于NSWorkspace.URLForApplicationToOpenURL的问题：

uses
  Posix.Stdlib;
....
  _system(PAnsiChar('open ' + ACommand));

(未经我测试)

更新：Posix在Windows上不可用，因此无法在所有平台上编写使用相同操作系统调用的解决方案。我建议将这样的代码移动到一个具有一些IFDEF POSIX等级的中央“XPlatform”单元中

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!