Version do Bcc

[ICO]

Bom Dia a todos
é possivel mostrar a versão do Bcc em uma dialog ??

gostarai de fazer algo mas ou menos assim

Code: Select all  Expand view

@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     :"+?????????
 

Gracias

[ICO]

Bom Dia a todos

E ai pessoal, não tem jeito mesmo de mostrar a Version de bcc em tempo de execução ?

[Antonio Linares]

Luiz,

Puedes usar esta función:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   MsgInfo( BorlandVersion() )

return nil

#pragma BEGINDUMP

#include <hbapi.h>

HB_FUNC( BORLANDVERSION )
{
   hb_retnl( __BORLANDC__ );
}

#pragma ENDDUMP
 

[Antonio Linares]

O prodrias mejorarla de esta forma e ir completándola según las distintas versiones que uses:

Code: Select all  Expand view

#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
 

[ICO]

Valeu Antonio.. Resolveu em partes mas é um grande começo.
Mas vou tentar Incrementar a func em C para retornar as outras versoes.

Obrigado

Abraços..

[wmormar]

ICO,

Aquí una función de [x]Harbour

Code: Select all  Expand view

? HB_Compiler()

[ICO]

wmormar
o HB_Compiler() retorna a versao do BCC utilizada no XH, e não no sistema.

Se voce estiver utilizando do XH 1.2.1 6603, vai retornar 5.51(32bits), mesmo que voce esteja uzando o BCC56, ou BCC5.82.

"By Sergio Personal "


Abraços..