>* Version 1 - Shuts down properly on logoff/shutdown >loForm = CREATEOBJECT('myForm') >loForm.Show() > >lcCommand = "ShutdownProgram()" >ON SHUTDOWN &lcCommand > >READ EVENTS > >DEFINE CLASS myForm as Form > >ShowWindow = 2 > > PROCEDURE Destroy > DO ShutdownProgram > ENDPROC > >ENDDEFINE > >PROCEDURE ShutdownProgram > ON SHUTDOWN > Clear Events > QUIT && IN SHUTDOWN ROUTINE >ENDPROC > >>
>* Version 2 - Program closes on loggoff/shutdown, but the Windows logoff does not finish >loForm = CREATEOBJECT('myForm') >loForm.Show() > >lcCommand = "ShutdownProgram()" >ON SHUTDOWN &lcCommand > >READ EVENTS >QUIT && IN MAIN ROUTINE > >DEFINE CLASS myForm as Form > >ShowWindow = 2 > > PROCEDURE Destroy > DO ShutdownProgram > ENDPROC > >ENDDEFINE > >PROCEDURE ShutdownProgram > ON SHUTDOWN > Clear Events > >ENDPROC >