Macのゴミ箱アプリ完成形

-- Automatorアプリケーション用の最終コード (カーソル処理削除)

on run {input, parameters}
	-- 処理中にカーソルを変更するCocoaコードを削除
	-- set busy_cursor to current application's NSCursor's operationNotAllowedCursor()
	-- busy_cursor's push()
	
	try
		-- 項目がドロップされた場合 (inputにファイルパスが含まれる場合)
		if (count of input) > 0 then
			repeat with anItem in input
				-- ドロップされた項目をHFSパス（テキスト）として取得
				set itemPathHFS to anItem as text
				
				-- HFSパスがコロンで終わるか確認 (ボリュームの判定)
				if itemPathHFS ends with ":" then
					-- 項目がボリュームの場合
					my eject_volume_finder(anItem)
				else
					-- ファイルまたはフォルダをゴミ箱に移動
					my move_to_trash_finder(anItem)
				end if
			end repeat
			
			-- アプリケーションがダブルクリックされた場合 (inputが空の場合)
		else
			tell application "Finder"
				activate
				open the trash
			end tell
		end if
		
	on error errMsg number errNum
		display dialog "処理エラー (" & errNum & "): " & errMsg buttons {"OK"} default button "OK" with icon stop
	end try
	
	-- 処理完了後にカーソルを元に戻すCocoaコードを削除
	-- busy_cursor's pop()
	
	return input
end run

-- ファイルまたはフォルダをFinderでゴミ箱に移動するハンドラー
on move_to_trash_finder(the_item)
	try
		tell application "Finder"
			delete the_item
		end tell
	on error errMsg
		if errMsg does not contain "-128" then
			display dialog "ゴミ箱への移動に失敗しました。" & return & "項目: " & (the_item as text) & return & "エラー: " & errMsg buttons {"OK"} with icon caution
		end if
	end try
end move_to_trash_finder

-- ボリュームをFinderでイジェクトするハンドラー
on eject_volume_finder(the_volume)
	try
		tell application "Finder"
			eject the_volume
		end tell
	on error errMsg
		if errMsg does not contain "-128" then
			display dialog "ボリュームのイジェクトに失敗しました。" & return & "ボリューム: " & (the_volume as text) & return & "エラー: " & errMsg buttons {"OK"} with icon stop
		end if
	end try
end eject_volume_finder