怎样使TWebBrowser中的js脚本调用程序中的函数,该怎么解决

怎样使TWebBrowser中的js脚本调用程序中的函数
就是怎样修改window.external. 在js脚本中调用外部程序中的函数, 比如Sleep函数:
external.Sleep(1000);

[解决办法]
是类似这个意思吗？？

IHTMLDocument2 *doc = NULL;
IHTMLWindow2 *pWindow = NULL;
WideString script,language;
language="JavaScript";
VARIANT v;
(void *)doc=CppWebBrowser1->Document;
doc->get_parentWindow(&pWindow);
script="alert('hello');";
pWindow->execScript(script.c_bstr(),language.c_bstr(),&v);
pWindow->Release();