PARAMETERS cBdd


SET TALK off
SET STATUS BAR OFF
SET SYSMENU off
SET DELETED on
SET CONFIRM OFF
SET NOTIFY off
SET SAFETY off
SET CENTURY ON
SET DATE TO DMY

SET PATH TO proj,json,classes, form,prg,class
*** Clases para el manejo de Web
SET PATH TO ".\classes" ADDITIVE
SET PROCEDURE TO wwHTTP ADDITIVE   
SET PROCEDURE TO wwAPI ADDITIVE
SET PROCEDURE TO wwFTP ADDITIVE
SET PROCEDURE TO wwUtils ADDITIVE

WAIT WINDOW "Cargando Ghost..." nowait

Local lcDefaultPath
lcDefaultPath = Sys(5)+Sys(2003)
Set Path To (Addbs(lcDefaultPath)+"Images") Additive
Set Default To (lcDefaultPath)


_screen.Visible = .t.
_screen.Caption = 'Ghost'
_screen.Icon = 'logo.ICO'
_screen.Caption = 'Ghost'
_screen.Closable = .F.

_screen.Height = 640
_screen.Width = 720
_screen.ControlBox = .T.
_SCREEn.BorderStyle = 2
_screen.AutoCenter= .T.
_screen.Show


DO app.prg WITH cBdd

oApp.loadGhost()

oApp.setGhost(.T.)

DO classes\wwapi.prg


Do Form config
Read Events

RELEASE oHTTP, oIP
If Type("_vfp.BindWindowsEventsProxy")<>"U"
	_vfp.BindWindowsEventsProxy = Null
ENDIF

Set Library To

_SCREEN.WindowState = 2
CLEAR ALL
CLOSE ALL
SET SYSMENU TO defa

On Shutdown
Clear Events
If _vfp.StartMode > 0
	QUIT
ENDIF

