Как я могу отключить службу через Delphi?

Ответ 2 · рейтинг 8 · ChristianWimmer

Вы можете использовать файл JclSvcCtrl.pas из библиотеки компонентов JEDI (JCL). Я написал псевдопример, который вы могли бы использовать. Однако имейте в виду, что я не проверял это. Но таким образом это должно работать (проверки ошибок опущены):

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;

Ответ 3 · рейтинг 7 · Germán Estévez -Neftalí-

Помимо использования предыдущих методов, если вам нужен больший контроль, вы можете использовать WMI.
С Класс Win32_Service имеет доступ ко всей информации о службах, установленных на машине, и вы можете иметь доступ к методам: Start, Stop, Pause, Resume, Interrogate, Create, Delete, Change, ChangeStartMode. ..

Здесь (Интернет / SourceForge) можно найти набор компонентов для работы с WMI (Библиотека компонентов GLibWMI); Есть один, называемый CServiceInfo, который предоставляет вам всю информацию и некоторые методы этого класса.

В дополнение к пакету есть несколько демо-версий; Один называется (ServiceControl) и реализует все методы.

а>

Весь пакет включает исходный код. Посмотрите код, он может быть вам полезен.

С уважением.

Ответ 4 · рейтинг 2 · Christopher Chase

это то, что я использую

Это всего лишь небольшая оболочка для некоторых функций API Windows, которые мы сочли полезными для работы с NT-Services. Он позволяет запрашивать, запускать, останавливать, приостанавливать и включать/отключать службы NT в локальной или удаленной системе.

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

Что позволяет вам писать "хороший" код 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;

раздел DisableService не был написан, но все, что нужно, это

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

Ответ 5 · рейтинг 1 · yonojoy

Другой вариант - использовать модуль DelphiVault ServiceManager . (см. также этот ответ):

var
    SM: TServiceManager;
    Svc: TServiceInfo;
begin
    SM := TServiceManager.Create;
    try
        SM.Active := True;
        Svc := SM.ServiceByName['MyServiceName'];
        Svc.SetStartType(ssDisabled);
    finally
        SM.Free;
    end;
end;