¿Cómo puedo desactivar un servicio a través de Delphi?

Question

Utilizo una rutina que puede iniciar y detener servicios a través de Delphi pero también necesito poder desactivarlos, ¿es posible?

Answer 1

ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=disabled', nil, SW_HIDE); 
ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=auto', nil, SW_HIDE); 
ShellExecute(0, nil, 'cmd.exe', 'sc config "the service name" start=demand', nil, SW_HIDE); 

Answer 2

abrir el servicio con OpenService, y luego desactivarla haciendo pasar Service_Disabled como el parámetro de dwStartType para ChangeServiceConfig. Especifique un puntero nulo o Service_No_Change para el resto de los parámetros, ya que no está interesado en cambiarlos.

Answer 3

Esto es lo que yo uso

Es sólo un pequeño envoltorio sobre algunos funciones API de Windows que fue muy útil para manejar NT-Servicios. Le permite consultar, iniciar, detener, pausar y activar/desactivar NT-Services en el sistema local o remoto .

http://blog.marcduerst.com/post/How-to-use-TServiceManager-to-manage-Windows-services.aspx

¿Qué le permite escribir 'agradable' código de Delphi;)

procedure DisableService(ServiceName: PChar); 
var SM: TServiceManager; 
begin 
    SM:=TServiceManager.Create; 
    try 
    SM.Connect; 
    SM.OpenServiceConnection(ServiceName); 

    //not working with TServiceManager as is 
    //but its easy to fix, see below   
    SM.DisableService; 


    finally 
    SM.Free; 
    end; 
end; 

la sección DisableService ya no haya sido escrito, pero lo único que se necesita es

procedure TServiceManager.DisableService; 
begin 
    ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE,SERVICE_DISABLED,SERVICE_NO_CHANGE, nil, nil, nil, nil, nil, nil, nil); 
end; 

Answer 4

Además utilizando los métodos anteriores, si necesita más control puede usar WMI.
Con Win32_Service class tener acceso a toda la información de los servicios instalados en la máquina y que puede tiene acceso a métodos: iniciar, detener, pausar, reanudar, Interrogar, crear, borrar, cambiar, ChangeStartMode ...

Aquí (Web/SourceForge) puede encontrar un conjunto de componentes para trabajar con WMI (GLibWMI components Library); Hay uno llamado CServiceInfo que le da toda la información y algunos métodos de esta clase.

Además del paquete están algunas demostraciones; Uno se llama (ServiceControl) e implementa todos los métodos.

alt text http://img341.imageshack.us/img341/8505/imagen336.png

Todo el paquete son de código incluido. Vea el código que puede ser útil para usted.

Atentamente.

Answer 5

Puede usar el archivo JclSvcCtrl.pas de JEDI Components Library (JCL). He escrito un pseudo ejemplo que podría usar. Sin embargo, tenga en cuenta que no lo probé. Pero de esta manera debería funcionar (se omiten las comprobaciones de error):

M := TJclSCManager.Create; 
M.Refresh(true); //Not sure if true is needed or not (refresh all services) 
For i := 0 to M.ServiceCount -1 do 
begin 
    S := M.Services[i]; //TJclNtService 
    if CompareText(S.ServiceName, 'bla') then 
    begin 
    S.Stop; 
    S.StartType := sstDisabled; 
    S.Commit; 
    break; 
    end; 
end;