04/29 QuickTime Xで録画して任意のファイル名で保存
QuickTime Xで録画して任意のファイル名で保存するAppleScriptです。
QuickTime Player 7＋Mac OS X 10.7で動作するScriptを見て海外の友人が「QuickTime Player Xは機能が少ないよな〜」などとぼやいていたので、この程度ならできるだろうと考えてQuickTime Player X用に書き換えてみました。
相変わらず、時間計測にお手軽にdelayコマンドを使っていますが、録画開始時のGUIアニメーションで２秒近くロスがあります。このため、指定録画時間に2秒追加しています。
| スクリプト名：QuickTime Xで録画 |
| property recTime : 10 –録画時間（秒で指定する）
set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力" set outFilepathPOSIX to POSIX path of aFilepath tell application id "com.apple.QuickTimePlayerX" –確実に処理を行うためにムービーをすべてクローズ close every document without saving –録画開始 set recMov to (new movie recording) tell recMov to start end tell –録画時間経過待ち delay (recTime + 2) –秒単位でウェイト（UI系の動作により２秒程度ロスが発生するもよう） tell application id "com.apple.QuickTimePlayerX" –録画停止 tell recMov to stop –この操作で、QT7の設定に従ってムービーが保存される delay 1 –時間待ち tell document 1 –properties set aProp to properties close end tell end tell set originPath to file of aProp –QT Player 7が自動保存したファイルを移動＆リネーム –ただし、自動保存したファイルのパスと移動先の衝突判定は省略 set movieOriginalFile to POSIX path of originPath set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX do shell script sText |