pb 调用com组件

//int result
//myoleobject=create OLEObject
//result=myoleobject.connecttonewobject('pb90.n_unictoansi')
//
//if result=-2 then   //没有注册则注册dll
//    if run('regsvr32 /s  '+GetCurrentDirectory ( )+'/unictoansi.dll')=1 then
//        result=myoleobject.connecttonewobject('pb90.n_unictoansi')
//     
//    else
//       messagebox('提示','注册组件时出错,请于厂家联系')
//         
//    end if
//     
//else
//   if result<0 then
//        messagebox('提示','组件调用错误')
//   end if
//end if
//
//if result>=0 then
//    myoleobject.loadpic(handle(mdi_1))
//end if