Tcl 要用 COM 有 tcom、optcl、twapi，之前大多是用 tcom，例如處理 excel。最近做一個系統需要控制影片播放，第一個就想到用 Windows Media Player，不過 tcom 試了很久一直無法正常操作，網路上也找不到相關範例，改用 optcl 後總算正常了，簡單的播放範例如下

load lib_windows/optcl.dll optcl

set mp [optcl::new -window .fmeMain WMPlayer.OCX]
set mpSetting [$mp : settings]
$mpSetting : playCount 1000
$mp : uiMode none
$mp : URL {o:\2.mkv}

.fmeMain config -width 640 -height 480
pack .fmeMain 

詳細的 interface 可參考 MSDN 上的 IWMPPlayer4 Interface。