如何使用ShowHTMLDialog?

[adminwang]

我在按钮中加入了显示网页的代码,但单击按钮后没有反应,以下是我的代码,请各位指教,谢谢!
CString txtURL;
txtURL="www.sina.com.cn";
HINSTANCE hInstance=LoadLibrary("MSHTML.DLL");
if(hInstance)
{
TShowHTMLDlg * pfnShowDlg;
pfnShowDlg=(TShowHTMLDlg*)GetProcAddress(hInstance,"ShowHTMLDialog");
if(pfnShowDlg)
{
IMoniker * moniker=NULL;
if(CreateURLMoniker(NULL,txtURL.AllocSysString(),&moniker)==S_OK)
{
pfnShowDlg(m_hWnd,moniker,NULL,NULL,NULL);
if(moniker!=NULL)
{
moniker->Release();
}
}
}
FreeLibrary(hInstance);
}

[aa3000]

直接加断点跟踪一下在哪个函数出错了。

[adminwang]

跟踪了,好像都是正常的,但没有网页出现

[贪玩的老鼠]

HINSTANCE hinstMSHTML = LoadLibrary(TEXT("MSHTML.DLL"));

if (hinstMSHTML == NULL)
{
// Error loading module -- fail as securely as possible
return;
}

SHOWHTMLDIALOGFN* pfnShowHTMLDialog;
pfnShowHTMLDialog = (SHOWHTMLDIALOGFN*)GetProcAddress(hinstMSHTML,
TEXT("ShowHTMLDialog"));
if (pfnShowHTMLDialog)
{
IMoniker *pURLMoniker;
BSTR bstrURL = SysAllocString(L"http://www.example.com/dialogsource.htm");
CreateURLMoniker(NULL, bstrURL, &pURLMoniker);

if (pURLMoniker)
{
(*pfnShowHTMLDialog)(NULL, pURLMoniker, NULL, NULL, NULL);
pURLMoniker->Release();
}

SysFreeString(bstrURL);
}

FreeLibrary(hinstMSHTML);

[adminwang]

谢谢qimiao77,网页出来了,还有一个问题,这是弹出的新出口,能在原来的对话框中显示网页吗?谢谢!