Creating a binary file that consists of a service and a normal application can be done very simple without using the service manager. Just check for SYSTEM account. It is very unlikely that your app is run as SYSTEM (only RunAsSys does ).

uses …, JwsclToken;

begin

  if JwIsSystem then

  begin

    try

    Application.Initialize;

    Application.CreateForm(TMyService, [...]

Unfortunately Borland didn’t implement a public register and start function into the class TServiceApplication. So we have to do it ourselves.
First we publish the protected RegisterServices function to allow (un-)install our service(s) programmatically.

Send post as PDF to convert this post to pdf.

This simple code excerpt can only be run under SYSTEM account (say in a service). It retrieves the token from the logged on user - especially the user at the physical console. Or in other words the user data of the person that sits in front of the computer. The main code which does the [...]