PROGRAMA QUE INICIE MINIMIZADO EN EL SISTRAY

Saludos Grupo
Necesito una orientacion con respecto a la forma de realizar un programa,
veras:

Necesito un programa que al iniciar, lo haga minimizado en el sistray. Al
hacer click en el me presente 3 opciones (Abrir, Detener, Finalizar).

Te escribo porque lei una respuesta que escribistes en portalfox donde
decias:

"Te cuento mi experiencia. Conocí la propiedad porque tuve que hacer una
capturador de llamadas telefónicas para una central Panasonic y puse en el
SysTray un programita para captura que lo arme en un pequeño form con la
clase Systray que viene como ejemplo en el vfp8

Cuando esta en el systray, al lado del reloj como dices tu, no aparece en
la
task bar, cuando toco el icono del systray aparece un menú, eligiendo la
opción correspondiente hago visible el form del que hablo arriba. En ese
momento, cuando se hace visible el form, si aparece en la task bar, al
cerrar o minimizar el form desaparece de la task bar y permanece (no
desapareció nunca) en el systray. Es el funcionamiento que me gusta. Para
este comportamiento no hace falta modificar la propiedad ShowinTaskbar en
ningun momento. En el desarrollo de mi programita si probe su
funcionamiento
pero decidi no utilizarla."

Debido a ello me tome la libertad de escribirte. He utilizado la clase
sistray que viene en vfp9 en un prg mas o menos esto es lo que dice:

x = NEWOBJECT('systray', 'systray.vcx')

x.IconFile = "E:\ALL-ICONS\TOP SECRET.ICO"

x.TipText = "En Ejecucion"

x.MenuText = "Systray_shortcut.mpr"

x.MenuTextIsMPR = .T.

x.AddIconToSystray()

y = NEWOBJECT('xTIMER')

Y.Interval000

y.enabled=.t.

READ EVENTS && Wait for user input.

* Clase original

DEFINE CLASS xtimer AS timer

PROCEDURE timer

this.Enabled=.F.

WAIT WINDOW "hola"

THIS.Enabled=.T.

ENDPROC

ENDDEFINE

Cualquier Orientacion o "Esqueleto" que me puedas facilitar te lo
agradeceria mucho!






:)


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway