如何把一个网页存为一个单独的mht文件

#include "SHDocVw_OCX.h"

#include "cdoex.h"

#include "msado15.h"

using namespace CDO;

// 本文是ccrun(老妖)根据相关资料改的,在BCB 6.0 下成功编译并测试通过.

// 假如有不能正常运行的,可能需要在机器上安装有Outlook.

void __fastcall SaveWholePage(BSTR bstrUrl, BSTR bstrFileName)

{

CoInitialize(NULL);

IMessage *pMsg;

IConfiguration *pConfig;

HRESULT hr = CoCreateInstance(__uuidof(Message), NULL,

CLSCTX_INPROC_SERVER, __uuidof(IMessage), (void**)&pMsg);

hr = CoCreateInstance(

__uuidof(Configuration),

NULL,

CLSCTX_INPROC_SERVER,

__uuidof(IConfiguration),

(void**)&pConfig);

pMsg->put_Configuration(pConfig);

try

{

pMsg->CreateMHtmlBody(

bstrUrl,

cdoSuppressNone,

WideString(""),

WideString(""));

}

catch(...)

{

ShowMessage("有错误发生!");

return;

}

ADOStream *pStream;

pMsg->GetStream(&pStream);

pStream->SaveToFile(bstrFileName, adSaveCreateOverWrite);

pMsg->Release();

pStream->Release();

CoUninitialize();

}

// 调用举例:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

SaveWholePage(WideString("http://www.ccrun.com"),

WideString("C:123.mht"));

}