IMHO.WS - остановить/запустить службу nt

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - остановить/запустить службу nt (https://www.imho.ws/showthread.php?t=64058)

остановить/запустить службу nt

поможите пжалста со службами nt, покажите примерчик как остановить/запустить какую-нить службу :help:

Панель управления - Администрирование - службы
открывается окно со списком всех служб - дальше разберешся без проблем, только надо знать что вырубать!!!

B0m.FLy
такой вопрос уже поднимался!
если через коммандую строку, то
net start [имя службы]
net stop [имя службы]

ех.. эт ветка по программированию или как?
в делфи, как программно остановить или запустить сервис ака службу?

всё, всем спасибо :)
может кому на будущее пригодится

подключаем WinSvc и

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);

var 

  h_manager,h_svc: SC_Handle; 

  svc_status: TServiceStatus; 

  Temp: PChar; 

  dwCheckPoint: DWord;

begin

 h_manager:=OpenSCManager(PChar(''),nil, SC_MANAGER_CONNECT);

  if h_manager > 0 then

  begin

    h_svc := OpenService(h_manager,PChar('ваш_сервис'), SERVICE_STOP or SERVICE_QUERY_STATUS);

    if h_svc > 0 then

    begin

      if(ControlService(h_svc,SERVICE_CONTROL_STOP, svc_status))then

      begin

        if(QueryServiceStatus(h_svc,svc_status))then

        begin

          while(SERVICE_STOPPED <> svc_status.dwCurrentState)do

          begin

            dwCheckPoint := svc_status.dwCheckPoint;

            Sleep(svc_status.dwWaitHint);

            if(not QueryServiceStatus(h_svc,svc_status))then

            begin

              break;

            end;

            if(svc_status.dwCheckPoint < dwCheckPoint)then

              break;

           end;

        end; 

      end;

      CloseServiceHandle(h_svc); 

    end;

    CloseServiceHandle(h_manager);

    StaticText1.Caption := 'Сервис остановлен';

  end;

end;