一个TCppShellWindows的问题

[knocker_k]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TCppShellWindows* explorer;
explorer = new TCppShellWindows(NULL);
VARIANT va;
va.vt=VT_I4;
long lCopies = explorer->get_Count();//为什么这里会出错？？
for ( long i = 0; i < lCopies; i++)
{
TVariantInParam va(i);
try {
IWebBrowser2Ptr browser(explorer->Item(va));
if (browser)
{

Memo1->Lines->Add(browser->LocationURL);
Memo1->Lines->Add(browser->LocationName);
}
}catch(...){}
}

}

//////////////出错信息////////

Project test.exe raised exception class EOleSysError with message '类没有注册'.

Process stopped. Use Step or Run to continue.

[CACACACACA]

我这没报错.(win2003+sp1)

下面是在MEMO1中显示的内容
//--------------------------------
http://community.csdn.net/
欢迎来到CSDN技术社区
http://community.csdn.net/Expert/topic/4756/4756608.xml?temp=.4903681
一个TCppShellWindows的问题

[knocker_k]

难道与我用的系统有关？我是win me

[CACACACACA]

'类没有注册'.

从报错信息来看,少了这个控件的注册信息.

// Type Lib: ..\typelibraries\shdocvw.dll (1)
// LIBID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}

注册一下.

[knocker_k]

谢谢.:)