powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как достать имя сервиса
6 сообщений из 6, страница 1 из 1
Как достать имя сервиса
    #40049538
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем.
Делаем сервисс.
Надо его проинсталировать и запустить в несколько инстанциях.
При инсталяции указываем имя сервиса, типо:
Код: pascal
1.
2.
3.
4.
procedure T_RSMCwDisprSvc.NtServiceBeforeInstall(Sender: TNtService; var DoAction: Boolean);
begin
  ServiceName := ServiceName + Paramstr(2);
end;


Всё прекрасно, инсталируется, запускается с новым именем, на пример, "MyServiceName_blabla1".
Так шас могу етот екзешэник проинсталировать под многими именами...

А как мне шас при старте сервиса узнать его настояшее ServiceName, а то ServiceName при старте всё время
то что в Дизаинтаиме записано ...

WBR
Janex
...
Рейтинг: 0 / 0
Как достать имя сервиса
    #40049547
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Janex,

можно сделать имя сервиса глобальной переменной и задать до старта сервиса.
...
Рейтинг: 0 / 0
Как достать имя сервиса
    #40049556
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman
Janex,

можно сделать имя сервиса глобальной переменной и задать до старта сервиса.


Что то не то, по моему ...
Если у меня два инстании сервиса, то когда они стартовали то вижу что первая
инстанция называется "MyServiceName_blabla1" а вторая "MyServiceName_blabla2".

Но при старте им обоим даже параметри commandline одинаковы. Лезть в регистр и
добовлять им дополнительныи параметр в commandline можно, но как то криво :(

Шас задумался что надо наидти функцию через которую достать список запушеных сервисов
где присутствует PID процесса и название сервиса, тогда мог бы наидти себя в нём ...
Пока ишем, но ...
...
Рейтинг: 0 / 0
Как достать имя сервиса
    #40049560
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Janex
Но при старте им обоим даже параметри commandline одинаковы.

И зря. Имя инстанса проще задавать через командную строку.
...
Рейтинг: 0 / 0
Как достать имя сервиса
    #40049570
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman
Janex
Но при старте им обоим даже параметри commandline одинаковы.

И зря. Имя инстанса проще задавать через командную строку.


Хa, точно ... я ведь могу при инсталяции автоматически регистр подправить
и добавить что то в командную строку ...
На хорошую мысль навели, спасибо :)
...
Рейтинг: 0 / 0
Как достать имя сервиса
    #40049581
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Janexя ведь могу при инсталяции автоматически регистр подправить

Этого не требуется, функция CreateService() отлично принимает командную строку и с
параметрами.

https://docs.microsoft.com/en-us/windows/win32/services/writing-a-servicemain-function
The second parameter is a pointer to an array of string pointers. The first item in
the array is always the service name.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как достать имя сервиса
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]