703
社区成员
发帖
与我相关
我的任务
分享
Function GetString() As String
GetString = Now
End Function
#include "vb_tlb.h"
void __fastcall TForm1::btn1Click(TObject *Sender)
{
TInitOle::Init(); // 这个实际上是调用了API CoInitialize,程序退出是会自动调用CoUninitialize,神吧? 有兴趣可以查看它的代码
_Class1Ptr cp; // 这个_Class1Ptr还有下面的CLSID_Class1是xxx_TLB.h里找到的(你的肯定不同),我试验的文件是在第81行和第75行。
cp.CreateInstance(CLSID_Class1); // 建立实例
if(cp)
{
WideString s;
cp->GetString(&s); // 调用GetString
Caption = s; // 现在窗体标题被更新成现在的时间
}
}