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 编译时，我有外部程序 MyViewer.app 的 Mac 版本。我应该把它放在哪里？如何将它放入 PAServer 创建的包中？启动它需要什么代码？

Answer 1

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;
   

2. 我通过在制作第一个包后将另一个签名包放在第一个包内的任何位置来做到这一点。我认为您可以使用 Delphi 中的 Deploy 页面将其他应用程序放入捆绑包中，只需将其他可执行文件（不是捆绑包）放在 Delphi 放置主应用程序代码的相同位置即可。