Services in Windows 10

[jsonnabend]

I'm trying to get a service installed and running in Windows 10.  I found this thread:

http://forum.lazarus.freepascal.org/index.php?topic=28357.0

and looked at some sample code from this thread:

http://forum.lazarus.freepascal.org/index.php?topic=20274.0

but I can't get even simple test code to run as a service.  When I try to start the service, I get a message from Windows that the service did not respond to the start request.

Does anyone have some sample code of a service that works on Windows 10?

TIA

[balazsszekely]

This should work, just add mode delphi and windows to the uses clauses:
http://stackoverflow.com/a/5562436

[jsonnabend]

No, no luck with that code.  I substituted JWAWinSvc for WinSvc and changed one argument type error, but no joy.  The service installed but would not start.

[balazsszekely]

No, no luck with that code.  I substituted JWAWinSvc for WinSvc and changed one argument type error, but no joy.  The service installed but would not start.

Here you go(attachment).

[jsonnabend]

Thanks for the upload.  I will take a look today.  I also found the "ClearnDirs" example code (can't believe I missed it earlier), and that simple service compiles, installs and runs, too.

[jsonnabend]

GetMem, your code compiles, installs and starts.  I can't figure out what routines execute when the service starts and stops.

[balazsszekely]

@jsonnabend
GetMem, your code compiles, installs and starts.  I can't figure out what routines execute when the service starts and stops.

Code: Pascal  [Select][+][-]

1.   //..
2.   if StatusHandle <> 0 then
3.   begin
4.     ReportSvcStatus(SERVICE_RUNNING, NO_ERROR, 0);
5.     try
6.       Stopped := False;
7.       Paused  := False;
8.  
9.       //service successfully started, create a thread here
10.  
11.       MainProc;
12.     finally
13.       ReportSvcStatus(SERVICE_STOPPED, NO_ERROR, 0);
14.     end;
15.   end;
16.   //...
17.  

The thead execute event should look like this or something similar:

Code: Pascal  [Select][+][-]

1. procedure TServiceThread.Execute;
2. begin
3.   while not Stopped do
4.   begin
5.     if not Paused do
6.     begin
7.       //your code here
8.     end;
9.     Sleep(10);
10.   end;
11. end;

Replace SERVICE_STOP_PENDING with SERVICE_STOP inside ServiceCtrlHandler so the service can stop properly. Actually you can use SERVICE_STOP_PENDING if you have a lengthy process, but don't forget to call SERVICE_STOP after.