forum.clarionlife.net

Admin спасибо за ссылку!

К сожалению, я пока не настолько хорошо владею C++ и Clarion, чтобы быстро реализовать (конвертировать) алгоритм на языке программирования С++ в код языка программирования Clarion.

Если бы владел в совершенстве, то и данного вопроса не было бы в принципе.

Примеров на C++ достаточно, вот только в код Clarion преобразовать бывает проблематично

(особенно когда нет опыта и глубоких знаний обоих языков программирования).

А пока, по мере возможностей, пробую решить задачу самостоятельно.

Developer писал(а): А пока, по мере возможностей, пробую решить задачу самостоятельно.

Добавил простые процедуры NTStartService, NTStopService в шаблон. Включаются галкой "Support /Start AND /Stop" на закладке "Install/Remove". Соответственно добавляют ключи /Start и /Stop.
Нет проверок ошибок, проверок того что сервис не запущен или уже остановлен. Проверок что сервис находится в режиме запуска, остановки или удаления.
По хорошему все нужно отслеживать. Но писать все это вам.
На самом деле все легко. Читайте. Учитесь. Задавайте вопросы.

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

Старт службы в моих опытах используя SCM получился, а вот остановка нет

Да согласен, все проверки, если делать полнофункциональный шаблон должны быть.

В принципе они уже существуют в шаблоне, их только необходимо применить к данным опциям старта и остановки службы.

Попробую сам модифицировать уже твои модифицированные шаблоны добавив пункты меню
пуска и остановки службы.

Когда есть хорошие знания и опыт с C (C++) то решение на Clarion выходят быстро.

Вопрос: как сделать создание и запуск службы (ABCFree apiNTServices) без значения SERVICEPATH в переменной Executable (в реестре ImagePath)?

Если меняешь с
Executable=CLIP(Executable) & ' SERVICEPATH=' & PATH() ! apiNTServices (ABC Free) Оригинал
на Executable=CLIP(Executable) то без ' SERVICEPATH=' & PATH() служба не стартует

Если не использовать пункт меню (опция) Use current EXE а указать конкреный путь файла тогда всё работает.

Но необходимо именно использование текущего (Use current EXE) без строки SERVICEPATH в переменной Executable (в реестре ImagePath).

С чем связано применение SERVICEPATH (путь к службе) когда практически все службы не используют параметр SERVICEPATH?

А для чего используете опцию "Support Dual Use EXE" ?
Она включает использование:

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

   #IF(%ServiceDualUse)
   Executable=CLIP(Executable) & ' SERVICEPATH=' & PATH()              #<! %ABCFreeTemplate (ABC Free)
   #ENDIF

Admin писал(а): А для чего используете опцию "Support Dual Use EXE" ?

Необходимо использовать один и тот-же еxe как в качестве службы так и в качестве обычного приложения

насколько я понимаю, у сервисов каталог запуска это что-то вроде c:\windows\system32

Дед Пахом писал(а): насколько я понимаю, у сервисов каталог запуска это что-то вроде c:\windows\system32

Для системных в основном да, для остальных произвольный.

Developer писал(а): для остальных произвольный.

да ладно... запусти свой сервис и посмотри, что LONGPATH() вернёт.

Дед Пахом писал(а):
Developer писал(а): для остальных произвольный.
да ладно... запусти свой сервис и посмотри, что LONGPATH() вернёт.

Путь к exe службы (сервиса Windows NT) обычно указан в ключе реестра "ImagePath"

К примеру:

Служба поддержки Mozilla Firefox:
"ImagePath"="C:\Program Files (x86)\Mozilla Maintenance Service\maintenanceservice.exe"

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

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\MozillaMaintenance]
"Type"=dword:00000010
"Start"=dword:00000003
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):22,00,43,00,3a,00,5c,00,50,00,72,00,6f,00,67,00,72,00,61,00,\
  6d,00,20,00,46,00,69,00,6c,00,65,00,73,00,20,00,28,00,78,00,38,00,36,00,29,\
  00,5c,00,4d,00,6f,00,7a,00,69,00,6c,00,6c,00,61,00,20,00,4d,00,61,00,69,00,\
  6e,00,74,00,65,00,6e,00,61,00,6e,00,63,00,65,00,20,00,53,00,65,00,72,00,76,\
  00,69,00,63,00,65,00,5c,00,6d,00,61,00,69,00,6e,00,74,00,65,00,6e,00,61,00,\
  6e,00,63,00,65,00,73,00,65,00,72,00,76,00,69,00,63,00,65,00,2e,00,65,00,78,\
  00,65,00,22,00,00,00
"DisplayName"="Mozilla Maintenance Service"
"WOW64"=dword:00000001
"ObjectName"="LocalSystem"
"Description"="Служба поддержки Mozilla гарантирует, что на вашем компьютере всегда будет стоять самая новая и наиболее безопасная версия Mozilla Firefox. Своевременное обновление Firefox очень важно для обеспечения вашей безопасности в Интернете, поэтому Mozilla настоятельно рекомендует вам держать эту службу включённой."

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\MozillaMaintenance\Security]
"Security"=hex:01,00,14,80,a4,00,00,00,b0,00,00,00,14,00,00,00,30,00,00,00,02,\
  00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
  00,00,02,00,74,00,05,00,00,00,00,00,18,00,bd,00,02,00,01,02,00,00,00,00,00,\
  05,20,00,00,00,21,02,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,05,\
  12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,20,\
  02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,04,00,00,00,00,00,\
  14,00,8d,01,02,00,01,01,00,00,00,00,00,05,06,00,00,00,01,01,00,00,00,00,00,\
  05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00

Служба удалённого реестра:
"ImagePath"=%SystemRoot%\system32\svchost.exe -k regsvc

У меня сервис стартует из каталога "ImagePath"="C:\Program Files\AppFolderName\Application.exe"

Функция Clarion LONGPATH() возвращает значение C:\Program Files\AppFolderName

forum.clarionlife.net

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service

Clarion Application as Windows NT Service