上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

--/--|スポンサー広告||TOP↑

ログイン時に最前面の Finder ウインドウを「いつもの」カラム幅に直す AppleScript のつづき。

ついでなので前回の LSUIElement のやつをAppleScript にしてみました。

--Mac OS X 10.4.6 で動作確認。
--Finder 上でアプレット (ドロップレット) を一つだけ選択して実行

tell application "Finder"
activate
set curItem to (item 1 of (selection as list)) as alias
tell application "System Events"
set pkBool to package folder of curItem
set creatorType to creator type of curItem
end tell
if (pkBool is true) and ((creatorType is "aplt") or (creatorType is "dplt")) and (exists file "Info.plist" of folder "Contents" of curItem) then
set appName to (name of curItem)
set curPath to POSIX path of ((file "Info.plist" of folder "Contents" of curItem) as Unicode text) --as alias だと少し問題がある。(※1)
set infoPath to do shell script "echo " & quoted form of curPath & " | sed 's/\\.plist$//'"
try
set lsuielement to do shell script "defaults read " & quoted form of infoPath & " LSUIElement"
on error
set lsuielement to "0"
end try
if lsuielement is "0" then
display dialog appName & " が起動しているとき" & return & "Dock にアイコンが表示されないように" & return & "設定を変更します。"
do shell script "defaults write " & quoted form of infoPath & " LSUIElement 1"
display dialog "完了" buttons {"OK"} default button 1 giving up after 1
else
display dialog appName & " が起動しているとき" & return & "Dock にアイコンが表示されるように" & return & "設定を変更します。"
do shell script "defaults write " & quoted form of infoPath & " LSUIElement 0"
display dialog "完了" buttons {"OK"} default button 1 giving up after 1
end if
end if
end tell

(*
同一のドロップレットに対して繰り返し実行する場合、※1の行で "Info.plist" の HFS パスを as alias としようとすると Finder でエラーになる。いちど "Info.plist" に変更を加えた後にドロップレットを実行したり、パッケージの内容を表示したりなどしていた場合は as alias でもエラーにならない。また、アプレットでは問題ないっぽい。よくわからん。
*)

--==スクリプトここまで==

環境によってはスクリプト中の円マークを手作業でバックスラッシュに直す必要があります。

前回も書きましたが、Info.plist が書き換えられてもすぐには反映されません。
アプレットをべつの階層に移動してから一度起動するなどすると、変更を確認できると思います。


追記:
LSUIElement を 1 にしたアプレットはメニューバーも表示しないため、終了したいときは
"/アプリケーション/ユーティリティ" フォルダに入っているアクティビティモニタを使うか、または

tell application "アプレット名" to quit

のようなスクリプトを実行します。

スポンサーサイト

05/10|AppleScriptコメント(0)トラックバック(0)TOP↑
この記事にコメント
名前:
コメントタイトル:
メールアドレス:
URL:
コメント:

パスワード:
管理人だけに表示:
管理者にだけ表示を許可
この記事にトラックバック
プロフィール

AquaBowler

  • Author:AquaBowler
  • 現在の Mac 環境:
    iBook Late2001
    Mac OS X 10.4.11
フリーエリア
最近の記事
最近のコメント
最近のトラックバック
月別アーカイブ
カテゴリー
ブログ内検索
RSSフィード
リンク
del.icio.us
feed meter

RSS feed meter for http://kotoerisan.blog16.fc2.com/

FC2カウンター
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。