Tcl通过exec &后台启动进程，能否获知进程被用户关闭？

当你用exec ... &直接启动后台进程时，Tcl默认不会主动追踪该进程的状态，也不会在进程关闭时自动触发通知——这就是你用bgerror没反应的原因，bgerror只处理Tcl自身后台脚本抛出的错误，和外部进程的退出无关。

要实现进程关闭的检测和通知，有两种可靠的方法：

方法一：通过管道监听进程状态 #

用open "|your_app 2>&1" r替代exec ... &，通过管道关联外部进程，再用fileevent监听管道的可读事件。当进程关闭时，管道会触发EOF，此时就能检测到进程结束：

# 启动进程并关联管道
set process_pipe [open "|your_application 2>&1" r]

# 定义处理进程输出和状态的回调
proc monitor_process {pipe} {
    if {[eof $pipe]} {
        close $pipe
        puts "外部应用已关闭"
        # 在这里添加进程关闭后的自定义处理逻辑
        return
    }
    # 读取并处理进程的标准输出/错误（不需要的话可以注释掉）
    if {[gets $pipe line] >= 0} {
        puts "应用输出: $line"
    }
}

# 监听管道的可读事件
fileevent $process_pipe readable [list monitor_process $process_pipe]

方法二：通过进程ID定期检查 #

先用exec ... &启动进程，再用pid命令获取进程ID，之后定期检查该ID对应的进程是否存在：

Linux/Unix系统版本 #

# 启动后台进程
exec your_application &
set app_pid [pid]

# 定期检查进程状态
proc check_process_alive {pid} {
    if {![file exists "/proc/$pid"]} {
        puts "进程 $pid 已关闭"
        # 自定义处理逻辑
        return
    }
    # 每隔1秒检查一次，可根据需求调整间隔
    after 1000 [list check_process_alive $pid]
}

# 启动检查
check_process_alive $app_pid

Windows系统版本 #

Windows没有/proc目录，需要用tasklist命令判断进程是否存在：

exec your_application &
set app_pid [pid]

proc check_process_alive_win {pid} {
    if {[catch {exec tasklist /FI "PID eq $pid" /NH} output]} {
        puts "进程 $pid 已关闭"
        return
    }
    if {[string first "$pid" $output] == -1} {
        puts "进程 $pid 已关闭"
        return
    }
    after 1000 [list check_process_alive_win $pid]
}

check_process_alive_win $app_pid

不管是用户点击应用窗口的关闭按钮，还是通过其他方式终止进程，以上两种方法都能准确检测到进程的关闭状态并触发通知。

内容的提问来源于stack exchange，提问作者Gary