Delphi Mac Windows

Delphi Mac OSでのShellExecute

Delphi XE4 ヘッダ

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

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

で使用できます。

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

スポンサードリンク

_system

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

uses に Posix.stdlib を追加。

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

手続きにまとめる

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

uses

フォーム

など手続きを追加。

実現部

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