... = GetActiveObject( (REFCLSID) &ClassID, NULL, &pUnk ); if( s_nOleError == S_OK ) { pDisp = NULL; s_nOleError = pUnk->lpVtbl->QueryInterface( pUnk, (REFIID) riid, (void **) &pDisp ); } } } hb_retnl( ( LONG ) pDisp ); } //---------------------------------------------------------------------------// ...