SU USO
ASI LA MANDAS A EJECUTAR EN EL INIT DEL PROGRAMA
=Ddesetoption(\"SAFETY\",.F.)
ch = Ddeinitiate(\"MyApp\",\"SYSTEM\")
If ch != -1
=Ddeterminate(ch)
Quit
Endif
Do dde_setup
ENDIF
Do Form FONDO.scx
DO FORM SPLASH.SCX
Do Form ACCESO.SCX With \"07\"
**************************
Procedure dde_setup
=Ddesetservice(\"MyApp\",\"DEFINE\")
=Ddesettopic(\"MyApp\",\"SYSTEM\",\"DETECTED\")
Endproc
******************
Function detected
Parameters a,b,c,d,E,F
Zoom Window Screen Max
Return .T.
Endfunc