New FWH 17.01

[Enrico Maria Giordano]

To be more explicit, these are the two C functions that I would move from checkres.prg to resource.c:

Code: Select all  Expand view

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 );
}

EMG

[Antonio Linares]

Enrico,

Consider that we move those functions to resource.c and that checkres.prg is not linked in the final EXE

In such case the app will try to execute two PRG functions that do not exist, thus generating an error.

[Enrico Maria Giordano]

Ok, now I understood. I didn't see that the C functions are calling PRG functions.

EMG