General information
Category:
Coding, syntax & commands
Like everyone else I start applications with a .PRG which sets the environment, displays a splash screen, loads a menu system, etc. I check to see if the user is a valid user. if not I display a message and then I would like to exit the application. To exit I have a function called "Depart". When I do Depart the application does not close. What can I add to make the app close?
*-------------------------------------------------------------------------------
function Depart
clear events
deactivate window all
pop key all
on shutdown
if _VFP.StartMode = 0 && Development Mode
set sysmenu to default
set library to
modify window screen
=sys(3056) && Reread Registry and config.vfp settings
endif
return .F.
*-------------------------------------------------------------------------------
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only