通常,我使用: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”单元中
原文链接:https://www.f2er.com/delphi/103569.html