AppleScript : 特定のアプリケーションのアイコン付display dialog [with icon note]

AppleScript では、カスタムなアイコンファイルを指定してダイアログ表示することができることを AppleScript : カスタムアイコン付ダイアログを表示する - GameSprit で確認しました。


今回は、display dialog [with icon note] コマンドに、特定のアプリケーションのアイコンを選んで表示させてみます。


まず、通常ではどうなるかということを確認してみます。
AppleScriptエディタを立ち上げて、次のスクリプトを書いて実行してみます。

display dialog "通常です" with icon note

結果は、AppleScriptエディタのアイコンが表示されます。
AppleScriptエディタから実行しているので、表示されるアイコンもAppleScriptエディタのアイコンです。





さて、それでは、Safari のアイコンを表示させたいときには、どうしたらいいのでしょうか？
次のコードを書いて実行してみます。

tell application "Safari" to display dialog "Safari" with icon note

こうすると、Safari が立ち上がって Safari のアイコンが表示されます。





まとめて確認してみます。そのために、簡単なハンドラをつくって、次々とアプリケーションで表示させてみました。

my ddap("iCal")
my ddap("iTunes")
my ddap("Norton AntiVirus")
my ddap("Microsoft Excel")

on ddap(appName)
tell application appName to display dialog (appName as text) with icon note
end ddap

いずれも、起動していない場合は、そのアプリケーションが立ち上がって、ダイアログが表示されます。








イチイチ立ち上がっていては面倒なので、時間がかからない方法を探します。
そのために、消極的ですが、すでに起動しているアプリケーションを List に入れて、その中からランダムに１つのアプリケーションを選び、そのランダムなアプリケーションのアイコン付ダイアログを表示させます。
リストの中からランダムに選ぶには、some item of リスト を使います。

-- 起動中の可視アプリケーションを List に入れる
tell application "System Events" to set appList to name of every process whose visible is true

-- List からランダムに1つ選び、ハンドラに渡す
my ddap(some item of appList)

on ddap(appName)
tell application appName to display dialog (appName as text) with icon note
end ddap

このような結果でした。

アプリケーションに tell して、display dialog [with icon note] を実行すると、そのアプリケーションのアイコン付でダイアログが表示されます。






キーワード：AppleScript、display dialog、with icon note、System Events、起動中のアプリ一覧、process、some item of、ランダム