Detener un servicio NT

[[seoane]]

WinSvc forma parte de las units que trae delphi, por lo menos en la version en la que yo trabajo (Delphi 7), aunque supongo que en versiones anteriores tambien debe de existir.

¿Porque quieres saber su localizacion exacta? ¿No te funciona con solo añadirlo a las uses? De todas formas yo la tengo aqui:

C:\Archivos de programa\Borland\Delphi7\Source\Rtl\Win\WinSvc.pas

[juanpe]

Hola quisiera indicar que soy incapaz de hacer que me funcione, estoy intentando parar los procesos de Interbase Guardian e Interbase Server.

El problema es que en service no me devuelve valor <> 0 .
Service:= OpenService(ServiceControlManager,PChar(Nombre),SERVICE_ALL_ACCESS);

El nombre del servicio, lo estoy tomando del nombre dentro de Herramientas Administrativas, Servicios (locales), Nombre.
Decir que el windows es Xp y que el user es administrador.

Gracias por vuestra ayuda.

[[seoane]]

El "Nombre" no es el que aparece en la Herramientas administrativas/Servicios an la columna con el titulo nombre. El nombre que necesitamos lo podemos obtener pulsando con el boton derecho sobre el servicio, vamos a propiedades y ahi parace el nombre del servicio y el nombre para mostrar, que es el que se muestra en la columna antes mencionada, el que nos interesa es el primero el nombre del servicio. Si ya lo estabas haciendo asi, entonces no se donde puede estar el problema, yo llevo usando esa misma funcion mucho tiempo y nunca tuve problemas con ella.

[juanpe]

Buenas tardes, Seoane
Te explico, el nombre lo estaba cogiendo correctamente, pero lo que me ha engañado ha sido que la pagina no refrescaba el cambio de estado del proceso. Es decir al comienzo, esta iniciado y mediante la aplicacion lo paraba, pero no cambiaba el estado.
Hasta que cerrando la ventana y volviendola a abrir vi que estaba detenido.


Muchas gracias por responder tan pronto.
Un saludo.