FiveTech Support Forums

@02.10,50 Say "Versão do FW      :"+FWVERSION
@04.10,50 SAY "Versão do xHarbour:"+VERSION()
@06.10,50 SAY "Versão do BCC     :"+?????????

#include "FiveWin.ch"

function Main()

   MsgInfo( BorlandVersion() )

return nil

#pragma BEGINDUMP

#include <hbapi.h>

HB_FUNC( BORLANDVERSION )
{
   hb_retnl( __BORLANDC__ );
}

#pragma ENDDUMP

#include "FiveWin.ch"

function Main()

   MsgInfo( BorlandVersion() )

return nil

#pragma BEGINDUMP

#include <hbapi.h>

HB_FUNC( BORLANDVERSION )
{
   switch( __BORLANDC__ )
   {
      case 1410:
         hb_retc( "5.82" );
         break;
         
      default:
         hb_retc( "Unknown BorlandC version" );
         break;   
   }      
}

#pragma ENDDUMP

? HB_Compiler()