起動中のアプリケーションを調べる

tell application "Finder"
	set OriginalDelimiters to AppleScript's text item delimiters
	--現在のdelimiters設定を保存しておく。
	set AppleScript's text item delimiters to {tab}
	set PROSESS_LIST to (name of every application process)
	set TexData to PROSESS_LIST as string
	--すべての起動しているアプリケーションのリストをPROSESS_LISTへ
	set AppleScript's text item delimiters to OriginalDelimiters
	--必ずdelimiters設定を戻しておく。
	--display dialog TexData
end tell