用BCB如何存成MHT檔? 像IE可以將某網站封存成 .MHT 檔? 有爬一些文章~ 但大部份都是DELPHI的~ 想試看看BCB怎麼弄~ 但研究不出來 ~__~    煩請指點一下~ 給個SAMPLE CODE. 有在網路上找到以下程式碼 但無法編譯~ 會出錯!     

#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"));
}