[Lazarus] Win services

[Antonio Fortuny]

Le 11/12/2013 14:38, Michael Van Canneyt a écrit :
>
>
> On Wed, 11 Dec 2013, Antonio Fortuny wrote:
>
>> 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;
>
> You should set refreshonconnect:=true (or something similar).
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
>
>>    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
now I get error 1060:
>
> Which fails if you do not refresh the list of services.
>
> Michael.
>
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>



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