ahhh! no he probado aun, pienso que sea así:
mira, para paralo, continuar, pausarlo, etc.. puedes hacer esto:
Código Delphi
[-]
procedure TForm1.Button3Click(Sender: TObject);
var
vSCManager, vService : Cardinal;
sstatus: TServiceStatus;
begin
vSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
vService := OpenService(vSCManager, svName, SERVICE_ALL_ACCESS);
ControlService(vService, SERVICE_CONTROL_STOP, sstatus); CloseServiceHandle(vService);
CloseServiceHandle(vSCManager);
end;
en la linea roja, la funcion ControlService, en el segundo parámtro puedes usar lo siguiente, segun lo que quieras hacer
Cita:
SERVICE_CONTROL_STOP
SERVICE_CONTROL_PAUSE
SERVICE_CONTROL_CONTINUE
SERVICE_CONTROL_INTERROGATE
SERVICE_CONTROL_SHUTDOWN
|
ahora, para iniciarlo nuevamente, prueba con la función *StartService(...)*, y si te quedas con dudas o no entiendes, entonces "tira pa' acá", que aqui hay un equipo que de seguro te ayudará
saludos!