Detener un servicio Windows

[cmfab]

Hola a todos, en encontrado este procedimiento para detener un servicio de Windwes

Código Delphi [-]
uses WinSvc;

procedure StopService(Nombre: String);
var
 ServiceControlManager: SC_HANDLE;
 Service: SC_HANDLE;
 ServiceStatus: SERVICE_STATUS;
begin
  ServiceControlManager:= OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if ServiceControlManager <> 0 then
  begin
    Service:= OpenService(ServiceControlManager,PChar(Nombre),SERVICE_ALL_ACCESS);
    if Service <> 0 then
    begin
      if QueryServiceStatus(Service, ServiceStatus) then
      begin
        if ServiceStatus.dwCurrentState <> SERVICE_STOPPED  then
          ControlService(Service, SERVICE_CONTROL_STOP, ServiceStatus);
      end;
      CloseServiceHandle(Service);
    end;
    CloseServiceHandle(ServiceControlManager);
  end;
end;

ejemplo de llamada

Código Delphi [-]
StopService('Themes');

lo he probado en Windows 7 y 2008 Server y no me funciona, el revicio esta iniciado y nunca se detiene
Gracias por sus comentarios

[Casimiro Noteví]

Seguramente necesitas permisos de administrador o algo así.

[cmfab]

Gracias, eso pensé pero la sesión de Windows única en la que estoy tiene privilegios de Administrador, osea el usuario es Administrador

[[nlsgarcia]]

cmfab,

Empezado por cmfab

...este procedimiento para detener un Servicio de Windows...lo he probado en Windows 7 y 2008 Server y no me funciona...la sesión de Windows única en la que estoy tiene privilegios de Administrador...

Revisa esta información:

Iniciar y Detener un Servicio en Windows 7 x32 y x64

Ejecutar una Aplicación como Administrador en Windows 7

Espero sea útil

Nelson.

[cmfab]

Gracias por ambnos enlaces, ahora si funcionó sin problemas