Tray Menu

[asimoes]

Senhores,

Tenho um aplicativo que fica rodando na barra de tarefas (em tray) usando a função InitTray.
Um dos parametros do metodo InitTray é o icone que será mostrado na barra.
Tem como mudar o icone em tempo de execução usando o comando set timer? Ou mostrar uma ação do sistema?
Este sistema que eu fiz faz impresão de arquivos txt gerados pelo clipper para uma impressora usb e estes arquivos são gravados na pasta c:\temp
Eu gostaria de fazer uma troca de icone no momento da impressão como uma espécie de animação do evento da impressão.

[]´s

[sygecom]

Pode usar assim:

Código: Selecionar todos

FUNCTION MUDA_ICONE
Local oIcon := HIcon():addResource( 1007 ) // icone que está no resource mas pode usar ADDFILE tmb.
ShellModifyIcon( oMainWindow:handle, oIcon:handle, "Novo texto do Icone" )
oMainWindow:Refresh()
Return

[asimoes]

Sygecom,

Funcionou perfeito.

Obrigado meu irmão.

[]´s