*--------------------------------- * MyService.prg on shutdown StopService() public oService oService = createobject('MyServiceClass') read events strtofile("Stopped after read events","c:\service.log",1) *--------------------------------- function StopService() strtofile("Stopped on shutdown","c:\service.log",1) endfunc *--------------------------------- define class MyServiceClass as session procedure destroy strtofile("Stopped at destroy method","c:\service.log",1) endproc enddefine