显示HTML对话框

关键字 HTML 对话框
作者 阿鬼
转载请与作者联系

正文

/*
* 成功返回TRUE,失败返回FALSE
*/
BOOL ShowHtml()
{
//装载动态连
HINSTANCE hinstMSHTML = LoadLibrary("MSHTML.DLL");
//此地址名称可直接用html文件名代替
WCHAR url[]=L" http://www.copathway.com/itbookreview/view_user.asp?user_name=ghost";

if(hinstMSHTML)//装载动态连接库成功
{
SHOWHTMLDIALOGFN *pfnShowHTMLDialog;

pfnShowHTMLDialog = (SHOWHTMLDIALOGFN*) GetProcAddress(hinstMSHTML, "ShowHTMLDialog");

if(pfnShowHTMLDialog)
{
IMoniker *moniker=NULL;

//
if( FAILED(CreateURLMoniker( NULL, (LPWSTR)url, &moniker ) ))
{
FreeLibrary(hinstMSHTML);
return FALSE;
}

//调用ShowHTMLDialog函数显示URL上的HTML文件
pfnShowHTMLDialog(NULL, moniker, NULL, NULL, NULL);

if(moniker != NULL)
moniker->Release();

//显示成功，返回TRUE
return TRUE;

}
else //GetProcessAddress失败
return FALSE;

FreeLibrary(hinstMSHTML);
}
else //装载动态连接库失败
return FALSE;
}