Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Как программно задать автоматический перезапуск службы при сбое?  [new]
Q01
Guest
Устанавливаю службу:

var
  hSCM: SC_HANDLE;
  hService: SC_HANDLE;

  gfSERVICE_NAME : string; // Имя сервиса
  gfSERVICE_DISPLAY_NAME : string; // Отображаемое имя сервиса
...
  hSCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
...
  hService := CreateService(
    hSCM, PChar(gfSERVICE_NAME), pChar(gfSERVICE_DISPLAY_NAME), SERVICE_ALL_ACCESS,
    SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS, SERVICE_AUTO_START,
    SERVICE_ERROR_NORMAL, PChar(ParamStr(0)), nil, nil, nil, nil, nil);
...

- все ОК.
Запускаю ее:
  hSCM := OpenSCManager(nil, nil, GENERIC_READ or GENERIC_EXECUTE);
...
  hService := OpenService(hSCM, PChar(gfSERVICE_NAME), SERVICE_ALL_ACCESS);
...
  fIsErr := StartService(hService, 0, pParameters);

- тоже все ОК.

Вопрос: как программно задать параметры восстановления для службы?
Ну, то, что "руками делается" в закладке "Восстановление" окна "Свойства" службы (см. аттач).
Спасибо.

К сообщению приложен файл. Размер - 47Kb
12 июн 18, 22:08    [21486899]     Ответить | Цитировать Сообщить модератору
 Re: Как программно задать автоматический перезапуск службы при сбое?  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 45920

https://msdn.microsoft.com/en-us/library/windows/desktop/ms681988(v=vs.85).aspx

Posted via ActualForum NNTP Server 1.5

12 июн 18, 22:11    [21486914]     Ответить | Цитировать Сообщить модератору
 Re: Как программно задать автоматический перезапуск службы при сбое?  [new]
Q01
Guest
Dimitry Sibiryakov,

точно.

Спасибо.
12 июн 18, 22:20    [21486936]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить