Hi Folks.

I'am in trouble when attempting to stop a Windows service using the TServiceManager component.
The program runs into a Vista-32 box,
the Lazarus IDE runs in an administrator user console: it has been started as d:...\Lazarus my_project.lpi
When I run the program and do a step by step execution all looks good until the StopService line is reachad:
The service name should be the display name, right ?

   SMgr := TServiceManager.Create(nil);
   try
     SMgr.Access := SC_MANAGER_ALL_ACCESS;
     SMgr.Connect;
*SMgr.StopService(SERVICE_NAME, False); *// there are no dependants
   finally
     SMgr.Free
   end

The pointed line fails with the Windows error exception: *6 invalid handle* as if the procedure couldn't catch a valid hendle for the service. When, in the same admin cosole I type:
net stop *SERVICE_NAME
*the service stopsimmediately without error

Any idea ?

Antonio.

**

---
Ce courrier ?lectronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com

You should set refreshonconnect:=true (or something similar).

SMgr.Connect;

Or call refresh here.

Refresh will re-fetch the list of services from the windows service manager. It needs this list for the next call:

*SMgr.StopService(SERVICE_NAME, False); *// there are no dependants

Which fails if you do not refresh the list of services.

Michael.

Le 11/12/2013 14:38, Michael Van Canneyt a ?crit :

Ok Michael, works up to there (SMgr.Refresh works too) but when doing:

       h := SMgr.GetServiceHandle(SERVICE_NAME, SERVICE_ALL_ACCESS);

I get the windows exception 1006 !!?
I do not use the IDE anymore but I launch the program in an administrator command line window

now I get error 1060:

---
Ce courrier ?lectronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com

I don't know what that means.

Maybe you don't have permission to get a file handle on this service.

I use this component succesfully since many years in commercial code. I would be very surprised to find out that it is an error in the code. (but it is not excluded)

Michael.

Regarding permissions: random guess: do you need a manifest file with proper elevation? Have you set that in project options? (Don't know if Vista actually requires this & you mentioned you were already running as admin, but who knows)

Sorry all, it is my fault.
In fact, when I use the commande
net start servicenape
servicenape stands for the display name and it works every day. This time I tried:
sc stop my_service
with the same name and I receive a Windows error telling me that service has not been started, but I'm pretty sure it is (that's what services.msc tells me)
Until, making a typing error I typed
sc stop _service
which did work !!!!
In fact, what sc and the TServiceCompoent expect as the service name to be is the NAME property of the item in the DataModule of the daemon mapper (_service in this case) and not its display name. That's it.
Maybe the wiki page (http://wiki.freepascal.org/ServiceManager) could be adapted to be more precise.
Now my program works fine with the services manager. I guess it will much easier to manage all this in Linux.

Thanks anyway.

Antonio.

---
Ce courrier ?lectronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com

Antonio Fortuny wrote

Maybe the wiki page (http://wiki.freepascal.org/ServiceManager) could be adapted to be more precise.

Looking forward to *your* updates. (hint, HINT, *HINT*!!!!!)

<rant>All well and good that only a select few persons ever take the trouble to ever write documentation in whatever form - be it text, fpdoc or wiki, these ridiculous "maybe somebody else should update the documentation" remarks after getting a lot of help are just... ridiculous.</rant>

Le 11/12/2013 16:23, Reinier Olislagers a ?crit :

I'd be glad to post some comments into the wiki page if you could take some time to explain to me how to proceed. This only takes time once. I guess that someone should read tha changes before they are published. In a more general way I'd also be glad to help maintaining Lazarus & FPC as far as I get the "how to proceed" from some of you. Visiting another page could be helpfull as well.

Antonio.

Antonio Fortuny wrote

Le 11/12/2013 16:23, Reinier Olislagers a ?crit : > On 11/12/2013 16:17, Antonio Fortuny wrote: some time to explain to me how to proceed.

Are you serious? Basically log in, hit "edit" and away you go.

I'd suggest you just write what you know. If there are errors, they're easily corrected. That's the idea of a wiki.

Le 11/12/2013 16:33, Reinier Olislagers a ?crit :

Always

Basically log in, hit "edit" and away you go.

Got it

2013/12/11 Reinier Olislagers

For my information, are there some users who check the wiki modifications globally, or should unsure users post here when they edit the wiki?

If you're unsure, you can always mark it in the text you're adding. If you're really unsure, you can edit the Talk page of a page and add your suggested changes etc.

Le 11/12/2013 16:33, Reinier Olislagers a ?crit :

Yep. I didn't have a login name, now I've one and edit works. It's gonna be late for today, I'll insert a comment tomorrow about this topic involving the service name.
Looks not too complicated. I think I could manage to make some changes

Antonio

---
Ce courrier ?lectronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com

Le 11/12/2013 16:23, Reinier Olislagers a ?crit :

Just done

Antonio.

---
Ce courrier ?lectronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com

Thanks a lot, Antonio, I really appreciate it!

todays report, both entry have an msisdn that failed in the past too. So expected to fail

Sorry, ignore, sent to wrong address.