tcl/tk sample.dll cannot be unloaded under a trusted interpreter

最近项目中使用TCL内核开发，使用命令load加载了dll库后，想用unload来卸载掉dll库报错：sample.dll cannot be unloaded under a trusted interpreter，从墙外论坛获知，在编写dll库时需要添加对unload的函数接口，具体操作与dll加载接口类似，

EXTERN_C int DECLSPEC_EXPORT sample_Init(Tcl_Interp* interp)；

EXTERN_C int DECLSPEC_EXPORT sample_Unload(Tcl_Interp* interp)；

sample_Unload函数中将sample_Init里创建的命令清除掉。