在tcl脚本中播放.wav文件

Question

您好我正在尝试在我的tcl脚本中播放.wav文件，但我无法这样做。 我已经尝试安装Sound 1.0软件包，但仍然无法正常工作。我已将.wav文件粘贴到c：/ bin并尝试exec bell.wav但是o / p说

couldn't execute "TTBell.WAV": no such file or directory

我可以获得有关此API或任何Windows API帮助的帮助吗？

Answer 1

.WAV个文件不是可执行文件，因此您无法像这样运行它们。最简单的方法是通过START实用程序，如下所示：

set thefile "bell.wav"
exec {*}[auto_execok start] "" [file nativename [file normalize $thefile]]

如果您使用的是较早的Tcl（8.4或之前版本），请改用此复杂形式：

set thefile "bell.wav"
eval exec [auto_execok start] [list "" [file nativename [file normalize $thefile]]]

在这两种情况下，由于在某些情况下""的奇怪性，空参数（START）必要