Funcion que devuelve version de BCC usada

Board index FiveWin para Harbour/xHarbour Funcion que devuelve version de BCC usada

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Funcion que devuelve version de BCC usada
Posted: Fri Oct 21, 2011 04:58 AM

Saludos

Hasta la fecha, se que hay tres versiones de Borland C, la BCC 5.5, la BCC 5.8 y la ultima de embarcadero BCC 6.3, mi pregunta puntual es como puedo obtener desde mi programa en FWH la version de Borland que se uso para compilar el programa, gracias

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Funcion que devuelve version de BCC usada
Posted: Fri Oct 21, 2011 06:01 AM

Enrique,

Puedes usar esta función:

Code (fw): Select all Collapse

HB_FUNC( BORLANDC )
{
   #ifdef __BORLANDC__
      hb_retnl( __BORLANDC__ );
   #else
      hb_retnl( 0 );
   #endif   
}

Y desde tu PRG la usas así:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

  MsgInfo( BorlandVersion() )

return nil

function BorlandVersion()

   local cHexVer := NumToHex( BorlandC() )

return SubStr( cHexVer, 1, 1 ) + "." + SubStr( cHexVer, 2 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Re: Funcion que devuelve version de BCC usada
Posted: Fri Oct 21, 2011 02:09 PM

Antonio

Muchas gracias, funciono perfecto !!!

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

FiveTech Support Forums

Continue the discussion