macos - Firemonkey应用程序-在OS X下运行时启动外部应用程序

Question

我有一个Firemonkey应用程序（Delphi Berlin 10.1），希望从中启动一个外部程序。 （外部程序是一个帮助文件查看器。）

当我为Win32编译时，我可以简单地做到这一点（当外部程序与主要可执行文件位于同一文件夹中时）：

path := ExtractFilePath(ParamStr(0));
path := path + 'MyViewer.exe';
ShellExecute(0, 'open', PWideChar(path), nil, nil, SW_SHOWNORMAL);

在为OS X编译时，我具有Mac版本的外部程序MyViewer.app。我在哪里放置？如何将其放入PAServer创建的捆绑包中？启动它需要什么代码？

Answer 1

这显示了Windows和OSX的等效性：

uses
{$IFDEF MSWINDOWS}
winapi.shellapi
{$ENDIF}
{$IFDEF POSIX}
Posix.Stdlib
{$ENDIF POSIX}
;

function ExecuteFile(const filename, Params, DefaultDir: string;
      ShowCmd: integer): THandle;
  begin
    {$IFDEF MSWINDOWS}
      result := ShellExecute(0, 'Open', PChar(filename), PChar(Params),
        PChar(DefaultDir), ShowCmd);
    {$ENDIF}
    {$IFDEF MACOS}
      _system(PAnsiChar('open ' + AnsiString(filename)));
    {$ENDIF}
  end;

我通过在制作第一个捆绑包后在另一个捆绑包内的任意位置放置另一个签名捆绑包来完成此操作。我认为您可以通过在Delphi中使用“部署”页面将其他应用程序放入捆绑包中，只需将其他可执行文件（而不是捆绑包）放在与Delphi放置主应用程序代码相同的位置即可。