FiveTech Support Forums

void RegisterResource( HANDLE hRes, LPSTR szType )
{
   PHB_ITEM pRet = hb_itemNew( hb_param( -1, HB_IT_ANY ) );

   hb_vmPushSymbol( hb_dynsymGetSymbol( "FWADDRESOURCE" ) );
   hb_vmPushNil();
   #ifndef _WIN64   
      hb_vmPushLong( ( LONG ) hRes );
   #else   
      hb_vmPushSize( ( HB_ISIZ ) hRes );
   #endif   
   hb_vmPushString( szType, strlen( szType ) );
   hb_vmFunction( 2 );

   hb_itemReturnRelease( pRet );
}  

void pascal DelResource( HANDLE hResource )
{
   PHB_ITEM pRet = hb_itemNew( hb_param( -1, HB_IT_ANY ) );

   hb_vmPushSymbol( hb_dynsymGetSymbol( "FWDELRESOURCE" ) );
   hb_vmPushNil();
   #ifndef _WIN64   
      hb_vmPushLong( ( LONG ) hResource );
   #else   
      hb_vmPushSize( ( HB_ISIZ ) hResource );
   #endif   
   hb_vmFunction( 1 );

   hb_itemReturnRelease( pRet );
}