如何用AppleScript在QuickTime Player同一窗口无缝播放电影序列

你的核心问题是每次通过open命令加载新影片时，QuickTime Player会创建新窗口/标签，导致全屏状态下顶部标签短暂显示。要实现无中断、无标签闪烁的连续播放，关键是复用同一个播放文档，不创建新窗口，具体方案如下：

改进后的脚本 #

-- 定义要播放的影片列表（按顺序排列）
set movieList to {
    "/Volumes/OWCRaid/Projects/Working Projects/Morpho 3 Upscale/Converted MOV/morph04.mov",
    "/Volumes/OWCRaid/Projects/Working Projects/Morpho 3 Upscale/Converted MOV/morph05.mov"
}

tell application "QuickTime Player"
    activate
    -- 初始化：打开第一个影片并进入全屏播放
    set currentDoc to open POSIX file (item 1 of movieList)
    tell currentDoc
        present -- 切换到全屏模式
        play
    end tell
    
    -- 循环播放剩余影片
    repeat with i from 2 to length of movieList
        -- 等待当前影片播放结束（每秒检查一次状态，比固定delay更可靠）
        repeat while playing of currentDoc is true
            delay 1
        end repeat
        
        -- 关键操作：替换当前文档的媒体内容，无需新建窗口
        set newMoviePath to POSIX file (item i of movieList)
        -- 后台打开新影片（不激活窗口），获取其媒体资源
        set tempDoc to open newMoviePath without activating
        -- 将当前播放文档的媒体替换为新影片的媒体
        set media of currentDoc to media of tempDoc
        -- 关闭临时打开的文档
        close tempDoc
        
        -- 继续播放新内容，保持全屏状态
        tell currentDoc
            play
        end tell
    end repeat
end tell

核心改进说明 #

• 复用播放文档：通过set media of currentDoc to media of tempDoc直接替换当前窗口的媒体内容，完全避免创建新窗口/标签，从根源上消除标签闪烁问题
• 可靠的播放结束检测：用repeat while playing循环替代固定delay，解决影片时长计算误差导致的提前/延迟切换问题
• 后台加载新影片：open ... without activating避免加载新文件时触发界面激活，进一步减少干扰
• 统一文档管理：始终保持只有一个主播放文档，操作逻辑更简洁

额外注意事项 #

• 打开QuickTime Player的「偏好设置」→「播放」，确保「在播放结束时」设置为「无」，避免影片结束后自动停止或跳转
• 如果你的QuickTime版本不支持media属性替换（较旧版本可能存在兼容性问题），可以尝试提前将所有影片打开到后台，通过切换frontmost状态并关闭旧文档，但这种方式的流畅度不如媒体替换方案

内容的提问来源于stack exchange，提问作者Robert Franklin Arnold