Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Displaying window in a service

I have set up a Delphi 4 program to run as a service using TService in NT and W2000 and the service runs. But I can not get the program to open to interface with the desktop, this program needs the window to interface with a user, but still to run as a service. I have set the option Interactive to True in the code below.

schService:=CreateService(schSCManager,PChar(FServiceName),PChar (FServiceDisplayName),
SERVICE_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS+ord(Interactive)*SERVICE_INTERACTIVE_PROCESS,
ord(StartType),SERVICE_ERROR_NORMAL,PChar(ExeName),nil,nil,nil,nil,nil);



In the services Startup, I set the option to allow interface with the desktop.

It also does not close, I have to restart the computer to kill the service. This maybe because the program is written to have the window and the user interface, so this may be causing the program not to shut down properly.

I would appreciate any help I can get.

Thank you,

Liz

Sign In or Register to comment.