Delphi Mac OSでのShellExecute

Delphiからでブラウザを開きたいときなど、ShellExecuteを使う必要があります。

FireMonkeyプロジェクトでも、WindowsならusesにWinapi.ShellAPI, Winapi.Windowsを追加し、

ShellExecute(0, 'OPEN', PChar(url), '', '', SW_SHOWNORMAL);

で使用できます。

ところでMac OSではどうやるんでしょう？

_system

Mac OSではPosix.stdlibを使います。

uses に Posix.stdlib　を追加。

_system(PAnsiChar('open ' + {コマンド} ));

{コマンド}の部分にURLを書けばSafariが起動してくれます。
カンタンでうれしい！

手続きにまとめる

OSの違いをコンパイラ指令にまとめて記述し、便利にしてみます。

uses

{$IFDEF MSWINDOWS}
Winapi.ShellAPI, Winapi.Windows
{$ENDIF}
{$IFDEF POSIX}
Posix.stdlib
{$ENDIF}

フォーム

procedure BrowserExecute(url: String);

など手続きを追加。

実現部

procedure TForm1.BrowserExecute(url: String);
begin
{$IFDEF MSWINDOWS}
ShellExecute(0, 'OPEN', PChar(url), '', '', SW_SHOWNORMAL);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
_system(PAnsiChar('open ' + AnsiString(url)));
{$ENDIF POSIX}
end;

これで呼び出し部分で常にBrowserExecuteを使えば、OSを意識せずに立ち上げられますね。