FoxPro/Visual FoxPro - que no cargue 2 veces

Hola amigos, como puedo hacer para que no cargue por segunda vez un EXE, intente con version(2) pero no me permite cargar la primera vez el programa, agradesco la ayuda

No te entiendo, con respecto al Exe

Saludos

Carlos Lott
Maracay-Venezuela

- http://winnersoft.coolfreepages.com/vfp/desktop1.htm
- http://www.tek-tips.com/gfaqs.cfm/pid/184/fid/1767

Your Main.PRG. shall start with the following line...

=myInstance("A name for your Application")

Then just copy the following code and add it at the end of your main.prg.
******************************************
PROCEDURE myInstance
PARAMETERS myApp
=ddesetoption("SAFETY",.F.)
ichannel = DDEINITIATE(myapp,"ZOOM")
IF ichannel =>0
=DDETERMINATE(ichannel)
QUIT
ENDIF
=DDESETSERVICE(myapp,"define")
=DDESETSERVICE(myapp,"execute")
=DDESETTOPIC(myapp,"","ddezoom")
RETURN
******************************************
PROCEDURE ddezoom
PARAMETER ichannel,saction,sitem,sdata,sformat,istatus
ZOOM WINDOW SCREEN NORM
RETURN
**********************************************************
** EOF

Your Main.PRG. shall start with the following line...

=myInstance("A name for your Application")

Then just copy the following code and add it at the end of your main.prg.
******************************************
PROCEDURE myInstance
PARAMETERS myApp
=ddesetoption("SAFETY",.F.)
ichannel = DDEINITIATE(myapp,"ZOOM")
IF ichannel =>0
=DDETERMINATE(ichannel)
QUIT
ENDIF
=DDESETSERVICE(myapp,"define")
=DDESETSERVICE(myapp,"execute")
=DDESETTOPIC(myapp,"","ddezoom")
RETURN
******************************************
PROCEDURE ddezoom
PARAMETER ichannel,saction,sitem,sdata,sformat,istatus
ZOOM WINDOW SCREEN NORM
RETURN