Показать сообщение отдельно
  #2  
Старый 04.11.2017, 05:23
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

ну, ковыряться со службами, выяснять что от чего зависит, лень.
По поводу этой жуткой смеси.
Уж либо общайся с service Manager из своего сервиса, либо посади свой батник на Scheduler.
Код:
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;
Ну а с планировщиком сам разберешься...
Ответить с цитированием