ErrorBlock() + MiniGui
Enviado: 24 Mai 2015 11:44
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:
Dentro da FUNCTION MyErrorFunc() tenho:
Que produz como resultado a lista abaixo:
Assim pergunto se há alguma forma ou variável que identifique a Versão da MiniGui em uso ?
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 ) } )
...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
...Nesta lista acima eu quero incluir a identificação da Versão da MIniGui em uso.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)
Assim pergunto se há alguma forma ou variável que identifique a Versão da MiniGui em uso ?