–> {last months album:album id 4.295966298E+9 of application “iPhoto”, selection:{album id 4.295966334E+9 of application “iPhoto”}, photo library album:album id 4.295966296E+9 of application “iPhoto”, name:”iPhoto”, version:”8.1.2″, frontmost:false, class:application, last import album:album id 4.295966297E+9 of application “iPhoto”,……（以下省略）

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aRes to checkAppInstallation(appIDlist) of me
if aRes = false then return –指定IDのアプリケーションが実行環境にインストールされていない場合はリターン

–起動実行
repeat with i in appIDlist
　　tell application id i to launch
end repeat

–起動チェック
repeat 300 times
　　if waitAppsActive(appIDlist) of me = true then
　　　　exit repeat
　　end if
　　delay 1
end repeat

–指定IDのプロセスが起動しているか確認
on waitAppsActive(appIDlist)
　　tell application “System Events”
　　　　set appList to bundle identifier of every process whose visible is true
　　end tell
　　
　　repeat with i in appIDlist
　　　　if i is not in appList then return false
　　end repeat
　　
　　return true
end waitAppsActive

–指定IDのアプリケーションがHDD上に存在するかを確認
on checkAppInstallation(appIDlist)
　　repeat with i in appIDlist
　　　　tell application “Finder”
　　　　　　try
　　　　　　　　set aRes to exists of application file id i
　　　　　　on error
　　　　　　　　return false
　　　　　　end try
　　　　end tell
　　end repeat
　　
　　return true
end checkAppInstallation

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定名称のプログラムを強制終了させる
on kill_aProc(aProcName)
　　tell application "System Events"
　　　　set procList to every process whose name contains aProcName
　　　　if procList is not equal to {} then
　　　　　　set aProc to contents of first item of procList
　　　　　　tell aProc
　　　　　　　　set anID to unix id
　　　　　　end tell
　　　　　　do shell script "kill -9 " & (anID as string)
　　　　end if
　　end tell
end kill_aProc

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定クリエーターコードを持つアプリケーションプロセス（起動中）の個数を数える
on countProcWithCreatorCode(aCode)
　　try
　　　　tell application "System Events"
　　　　　　set pList to every process whose creator type = aCode
　　　　　　return length of pList
　　　　end tell
　　on error
　　　　return 0
　　end try
end countProcWithCreatorCode

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定の名称およびバージョンに該当するアプリケーションプロセスが起動しているかどうかをチェック
on getExistenceOfRunnningProcess(apName, apVer)
　　tell application "System Events"
　　　　set exF to exists of application process apName
　　　　if exF = true then
　　　　　　tell application process apName
　　　　　　　　set apProp to properties
　　　　　　　　set apFile to file of apProp
　　　　　　end tell
　　　　else
　　　　　　return false
　　　　end if
　　end tell
　　tell application "Finder"
　　　　set aVer to version of apFile
　　end tell
　　if aVer begins with apVer then
　　　　return true
　　else
　　　　return false
　　end if
end getExistenceOfRunnningProcess

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定プロセスの可視/不可視切り替え
on setVisibleOfSpecifiedProcess(aProc, aBoolean)
　　tell application "System Events"
　　　　if exists process aProc then
　　　　　　set visible of process aProc to aBoolean
　　　　　　set resF to true
　　　　else
　　　　　　set resF to false
　　　　end if
　　end tell
　　return resF
end setVisibleOfSpecifiedProcess

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> {Name:”Adobe Illustrator.app”, creation date:date “2007年 10月 5日 金曜日 0:00:10 PM”, modification date:date “2008年 3月 1日 土曜日 9:17:52 AM”, input path:{0, 0}, size:3.06324335E+8, folder:true, alias:false, package folder:true, visible:true, extension hidden:true, name extension:”app”, displayed name:”Adobe Illustrator CS3″, short name:”Illustrator”, default application:alias “Mikan:Applications:Adobe Illustrator CS3:Adobe Illustrator.app:”, kind:”アプリケーション”, short version:”13.0.3″, long version:”13.0.3, Copyright © 1987-2007 Adobe Systems Inc. All rights reserved.”, bundle identifier:”com.adobe.illustrator”, file type:”APPL”, file creator:”ART5″, type identifier:”com.apple.application-bundle”, busy status:false}

–指定クリエータのアプリケーションの情報を返す
on retVerFromCreator(createrCode)
　　if createrCode = “” then
　　　　–Creator Codeに何も指定されていなかったらエラー
　　　　return false –エラーでもリストで返す
　　end if
　　
　　tell application “Finder“
　　　　try
　　　　　　set appFile to (application file id createrCode)
　　　　　　set appFile to appFile as alias
　　　　　　
　　　　　　set aFinfo to info for appFile
　　　　　　
　　　　　　–念のため、short verとlong verを返す
　　　　　　set vInfo to {short version of aFinfo, long version of aFinfo}
　　　　　　return vInfo –リストで返す
　　　　on error
　　　　　　return false
　　　　end try
　　end tell
　　return false
end retVerFromCreator

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on getScriptableAppName()
　　tell application “System Events“
　　　　set a to name of every process whose (accepts high level events is true) and (has scripting terminology is true) and (visible is true)
　　end tell
　　set b to choose from list a with prompt “tellするアプリケーションを選択してください“
　　if b is false then
　　　　return “ApplicationName“
　　else
　　　　set b to item 1 of b
　　　　return b
　　end if
end getScriptableAppName

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に