ErrorBlock() + MiniGui

[Hasse]

Bom dia colegas.

Na minha rotina de tratamento de erro eu gostaria de incluir a informação de qual a Versão da MiniGui em uso no aplicativo.

Hoje tenho a seguinte rotina de tratamento de erro:

Código: Selecionar todos

FUNCTION Main()
   ...
   LOCAL oError       := ErrorBlock( { | oError | MyErrorFunc( oError ) } )
   ...

Dentro da FUNCTION MyErrorFunc() tenho:

Código: Selecionar todos

   ...
   c_Message += '      Application name.....: ' + HB_cmdargargv() + CRLF
   c_Message += '      Workstation name.....: ' + NetName() + CRLF
   c_Message += '      Operating system.....: ' + os() + CRLF
   c_Message += '      [x]Harbour version...: ' + Version() + CRLF
   c_Message += '      [x]Harbour built on..: ' + HB_builddate() + CRLF
   c_Message += '      C/C++ compiler.......: ' + HB_compiler() + CRLF
   ...

Que produz como resultado a lista abaixo:

Application name.....: D:\DEV\ProlaZ1\Hospitais\S.Jose\ImportarZ1.exe
Workstation name.....: NB_IVO
Operating system.....: Windows XP 5.1.2600 Service Pack 3
[x]Harbour version...: Harbour 3.2.0dev (r1412121623)
[x]Harbour built on..: Dec 13 2014 02:40:31
C/C++ compiler.......: MinGW GNU C 4.6.1 (32-bit)

Nesta lista acima eu quero incluir a identificação da Versão da MIniGui em uso.

Assim pergunto se há alguma forma ou variável que identifique a Versão da MiniGui em uso ?

[Toledo]

Amigo, use a função MiniGuiVersion(), por exemplo:

Código: Selecionar todos

   c_Message += '      MiniGui.......: ' + MiniGuiVersion() + CRLF

Para HMG Oficial use a função HMGVersion().

Abraços,

[Hasse]

Valeu caro Toledo.
Obrigado.

[Hasse]

Boa tarde Toledo e demais colegas.

Somente para dar um Feedback dos testes.

Interessante que as 02 (duas) variáveis funcionam e retornam a versão: HMG 3.3.0 Stable (32 bits)

[Toledo]

Na HMG vai funcionar as duas funções, pois no arquivo i_pseudofunc.ch tem um xtranslate para compatibilizar:

Código: Selecionar todos

#xtranslate MiniGUIVersion () ;
=> ;
HMGVersion ()

Abraços,

[Hasse]

Nada melhor do que um bom Mestre.
:{ :{ :{