Trabajando con TServiceApplication

[aeff]

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

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!