如何把一個網頁存為一個單獨的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<br>
　　     {
　　         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"));
　　 }