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

通常，我使用：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”单元中