Clarion Application as Windows NT Service

Developer

Привет всем!

Необходима работа приложения Clarion в качестве службы Windows (Clarion Application as Windows NT Service)
Успешно применяю шаблон ABC Free http://www.authord.com/ Работает отлично!

Есть вопрос: что необходимо изменить в исходном тексте Clarion для создания службы чтобы создавалось описание назначение этой службы - раздел реестра "Description".

Как решение, пробовал к службе ->Описание<- создавать через модификацию реестра.

Вопрос: есть ли решение создания раздела ->Описание<- через создание самой службы в исходном коде Clarion?

А также, как указать именно в исходном коде Clarion под какой учётной записью стартует служба и как произвести выборку существующей учётной записи?

Код: Выделить всё

 SCMHandle = OpenSCManager(ServicesMachineName,ServicesDatabaseName,SC_MANAGER_CREATE_SERVICE+STANDARD_RIGHTS_REQUIRED) ! apiNTServices (ABC Free)

   IF SCMHandle                                            ! apiNTServices (ABC Free)
      ServiceHandle = CreateService(    |!(Win32 API)
            SCMHandle,                  |! SCManager database
            ServiceName,                |! name of service
            DisplayName,                |! name to display
            SERVICE_ALL_ACCESS,         |! desired access to service
            SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS * 1,  |! service type
            SERVICE_AUTO_START,         |! start type
            SERVICE_ERROR_NORMAL,       |! error control type
            Executable,                 |! service's binary location
            0,                 |! address of: no load ordering group
            0,                 |! address of: no tag identifier
            0,                 |! address of: no dependencies
            0,                 |! address of: no LocalSystem account  -> Здесь указана учётная запись под какой старует служба?
            0)                 ! address of: no password                   -> Назначение параметра?

Сообщение **Admin** » 28 Август 2015, 18:48

Set Windows Service Description in C++

Developer

Admin спасибо за ссылку! Разбираюсь..... Но пока для меня очень тяжеловато

А старт службы c определённой учётной записью как решить?

Может у кого есть решение в кодах Clarion?

Сообщение **Admin** » 29 Август 2015, 7:13

Developer писал(а):А старт службы c определённой учётной записью как решить?

Попробуйте напрямую в шаблоне описать переменную к примеру
GLO:ServiceUserName CSTRING(100)
занести в нее имя пользователя
GLO:ServiceUserName = '.\UserName'
и передать ее в функцию. т.е. написать типа

Код: Выделить всё

      ServiceHandle = CreateService(    |!(Win32 API)
            SCMHandle,                  |! SCManager database
            ServiceName,                |! name of service
            DisplayName,                |! name to display
            SERVICE_ALL_ACCESS,         |! desired access to service
            SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS * %InteractWithDesktop,  |! service type
            SERVICE_AUTO_START,         |! start type
            SERVICE_ERROR_NORMAL,       |! error control type
            Executable,                 |! service's binary location
            0,                          |! address of: no load ordering group
            0,                          |! address of: no tag identifier
            0,                          |! address of: no dependencies
            ADDRESS(GLO:ServiceUserName ),                          |! address of: no LocalSystem account
            0)                           ! address of: no password

Если тип службы - SERVICE_WIN32_OWN_PROCESS, используйте имя учетной записи в форме DomainName\UserName. Процесс службы начнет работу как этот пользователь. Если учетная запись принадлежит встроенному домену, Вы можете задать .\UserName

Сообщение **Admin** » 29 Август 2015, 10:08

Вот исправленные шаблоны последней версии. Проверил, сервис запускается под юзером.
Юзер и пароль в шаблоне задается текстом или переменными. см. шаблон и код.
Единственный момент. Должна быть отключена опция "Interact With Desktop". С ней не устанавливается сервис.
х.з. почему. Разбираться дальше лениво. Куда копать показал!

Developer

Admin, ещё раз спасибо за помощь!

Должна быть отключена опция "Interact With Desktop"

Правильно ли я понял:

Вместо SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS * %InteractWithDesktop, |! service type
Использовать SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS * 1, |! service type
или использовать SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS, |! service type

Сообщение **Admin** » 29 Август 2015, 16:07

Просто эту опцию в шаблоне отключай. Тогда будет
SERVICE_WIN32_OWN_PROCESS + SERVICE_INTERACTIVE_PROCESS * 0
(т.е. при умножении на 0, SERVICE_INTERACTIVE_PROCESS отключится)
Если в ручную пишешь то оставь только флаг SERVICE_WIN32_OWN_PROCESS

Сообщение **Admin** » 29 Август 2015, 16:10

По поводу SERVICE_INTERACTIVE_PROCESS тут есть

Сообщение **Admin** » 29 Август 2015, 16:11

Просто иногда захватывает мысль докопаться. Но после получения результата какого либо, дальше рыть не интересно.

Developer

Admin спасибо за модифицированные шаблоны! Всё отлично работает!

Interact With Desktop обычно применяют для Windows XP и ниже.

В Windows 7 и выше Interact With Desktop под запретом хотя и работает. Мне он не нужен.

Осталось только решить вопрос как программно из самого приложения Clarion которое и есть файл службы
управлять запуском и остановкой службы.

Мои попытки сделать эти процедуры на основе существующих пока безуспешны

Сталкивался ли с такой задачей и есть ли решение?

Сообщение **Admin** » 30 Август 2015, 5:28

Developer писал(а): Осталось только решить вопрос как программно из самого приложения Clarion которое и есть файл службы
управлять запуском и остановкой службы.

Service Control Program Tasks

Yufil · Сообщение **Yufil** » 30 Август 2015, 19:01

Хмм, вроде те же шаблоны от Authord позволяют вызвать инсталляцию сервиса командной строкой
Я делал в exe GUI-меню с пунктами
Регистрировать Run(Command('0') & ' /IS')
Разрегистрировать Run(Command('0') & ' /RS')
Стартовать Net Start Имясервиса
Остановить Net Stop Имясервиса

Всё работало

Developer

Yufil писал(а): Хмм, вроде те же шаблоны от Authord позволяют вызвать инсталляцию сервиса командной строкой Я делал в exe GUI-меню с пунктами Регистрировать Run(Command('0') & ' /IS') Разрегистрировать Run(Command('0') & ' /RS') Стартовать Net Start ИмясервисаОстановить Net Stop Имясервиса Всё работало

Мне это известно и согласен что работает!

Однако:

Стартовать Net Start Имясерв
Остановить Net Stop Имясервиса

Это внешние команды операционной системы

Мне необходимо выполнить эти действия из файла самой службы кодом процедурами Clarion.

Впрочем, как одно из решений возможно попробовать создать из приложения новый процесс
и выполнить эти команды.

А вот как это сделать в коде Clarion точно также как процедуры установки и удаления используя SCM?

Yufil · Сообщение **Yufil** » 30 Август 2015, 21:16

Ну, конечно, Run('Net Start .... '), воспроизводил по памяти

Сообщение **Admin** » 31 Август 2015, 2:02

Developer писал(а): А вот как это сделать в коде Clarion точно также как процедуры установки и удаления используя SCM?

Я же дал ссылку с примером. Или вы хотите готовый код?