[DUG]: NT Services

[Jeremy Coulter]

Hi all We have a couple apps that were written in Delphi 3 that were notoriginally written to serve as an NT service, but it was later decided that they should be. I have adapted them so that if they are run with the right command line argument they will call SetServiceStatus and StartServiceCtrlDispatcher. The intent of that is so that when the system tries to start the executable it will use the command line argument and the exe will know how to start itself. They work well and support starting and stopping from Control Panel\Services and they do startup when the machine boots if they are set to automatic startup. But if the user logs in, and then selects "Close all programs and log in as a different user" the apps stop. I am logging all the messages such as SERVICE_CONTROL_INTERROGATE and SERVICE_CONTROL_STOP and they do not appear to be getting any messages indicating that the service is stopped. As far as I can tell, the problem is that NT closes the app as if it were a regular program and not a service.   Jeremy Coulter (Software Manager) Triton Commercial Systems Ltd 6a Burdale Street Christcurch Phone +64 3 3483973 Fax   +64 3 3431613 Cell   021 2533214