* 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