Tray nao funciona no Harbour?

[janio]

Pessoal,

O codigo abaixo funciona como é pra ser no xHarbour1.2.1, ou seja, a aplicação e inicia no tray do windows. Mas no HARBOUR 3.2 a aplicação abre como uma janela preta e so.

Ha algo mais a fazer no harbour?

Código: Selecionar todos

#include "windows.ch"
#include "guilib.ch"
#include "hwgui.ch"
#include "common.ch"

Function notifi
Private oMainWindow, oTrayMenu, oTimer1
Private oIcon:= HIcon():AddResource(100)

INIT WINDOW oMainWindow MAIN TITLE "System Tray"

SET TIMER oTimer1 OF oMainWindow VALUE 10000 ACTION  {|| teste() }

CONTEXT MENU oTrayMenu
    MENUITEM "Configurações" ACTION {|| msginfo("aqui")}
    SEPARATOR
    MENUITEM "Sair" ACTION {|| Sair()}
ENDMENU   

   oMainWindow:InitTray(oIcon,,oTrayMenu,"System tray")

ACTIVATE WINDOW oMainWindow NOSHOW

oTrayMenu:End()
Return

Static Function teste
	MsgInfo('Eu aquiiiiiiiiiiiiiiii')
return .t.

Function Sair
*************
IF MsgYesNo("Deseja Realmente Sair","Aviso do Sistema")
   oMainWindow:Close()
   quit
endif
Return

hbp

Código: Selecionar todos

----------------
# Nome do Execut vel
# ---------------------------
-oTray
-run

# ---------------------------
# Parametros
# ---------------------------

-gui

# ---------------------------
# Bibliotecas
# ---------------------------

-lhwgui
-lprocmisc
-lhbxml
-lxhb

# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------

terminal.prg

[janio]

Acrescentei no hbp

-gtwvg

e Funcionou!