pesquisando aqui descobri o seguinte link (em inglês):
http://patondata.com/harbour/gt.htm vi umas curiosidades bem interessantes.
a hb_gt_sys está lá sugerida assim:
THE DEFAULT ===========
By default, Harbour will select the gtwin.lib. All GT commands will
then be executed through the functions in the gtwin.lib, which outputs
them to a WinXP console. Also, the next command pair are automatically
included in your Harbour app. You do not need to put in your program.
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_WIN_DEFAULT
ALTERNATE TERMINAL DRIVERS ==========================
To use an alternate driver, put these commands at the top of your
main harbour prg file. For example, to use the gtwvt.lib, which creates
a real WinAPI window for the output (rather than a simple console
window), use the following commands.
You must also include the gtwvt.lib on your bcc32 Link link in your
bld.bat (it can either replace or go next to gtwin.lib).
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_WVT_DEFAULT
...e assim sucessivamente.
nenhuma das opções acima faz funcionar...
...mas um dos exemplos me deixou intrigado:
/*** t.prg, Test of mixing terminal drivers ***/
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_GUI_DEFAULT
REQUEST HB_GT_WIN
REQUEST HB_GT_WVT
FUNCTION MAIN()
? HB_GTVERSION(), HB_GTVERSION(1)
TONE( 200, 3)
TONE( 300, 3)
TONE( 500, 3)
INKEY( 5 )
RETURN NIL
/* end */
O autor, sugere que a gente execute o exemplo (após compilação) do T.EXE pelo CMD (ou .BAT) da seguinte forma:
t
t //GTWIN
t //GTWVT
Bom, então resolvi testar no meu aplicativo as opções sugeridas:
//GTWIN ou //GTWVT e acrescentei mais uma uma:
SICCA3604 //GTWVG (que não foi sugerido)
e aí o meu sistema voltou a funcionar.
O Quintas, sabe o que está faltando nos meus .PRGs pra voltar funcionar automaticamente?
já coloquei o código bem no início do .PRG MAIN:
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
Mas, infelizmente não funciona sozinho. Só funciona se executar o .EXE pelo CMD da seguinte forma:
C:\>SICCA3604 //GTWVG
???
:%
