Сервисы в Delphi

← →
zdn © (2003-11-10 10:55) [0]

Подскажите, пожалуйста, как сделать так чтобы сервис при инсталляции брал не системную учетную запись?

← →
BizonWar © (2003-11-10 11:08) [1]

Если ты имешь ввиду, что сервис должен запускаться не под LocalSystem, а под другим аккаунтом, то при создании сервиса (CreateService) тебе нужно в предпоследнем аргументе указать аккаунт. Если NULL, то будет LocalSystem.
См. хелп по CreateService.

← →
zdn © (2003-11-10 11:15) [2]

Я создаю сервис с помощью ServiceApplication, там можно как-то указать аккаунт пользователя?

← →
Reindeer Moss Eater © (2003-11-10 11:22) [3]

property ServiceStartName: String;

Description

ServiceStartName is the name used to start the service.

← →
BizonWar © (2003-11-10 11:22) [4]

Я не пробывал делать сервисы таким образом. Но первый же хелп показал:
Tservice.ServiceStartName

ServiceStartName is the name used to start the service.

If ServiceType is stWin32, ServiceStartName is the account name (in the form "DomainName\Username") which the service process is logged on as when it runs. If the account belongs to the built-in domain, ".\Username" can be specified. If the service application includes more than one service, leave ServiceStartName blank, and leave the Password property blank.
TService.Password - соответственно пароль для аккаунта.

← →
zdn © (2003-11-10 11:30) [5]

Спасибо.
А можно ли как-то получить имя пользователя из Винды? Дело в том что мне надо проинсталировать сервис под аккаунтом текущего пользователя. Т.е. подскажите, как получить текущий учетную запись?

The GetUserName function retrieves the user name of the current thread. This is the name of the user currently logged onto the system.
Права инсталлировать сервис есть у админов, ни у юзеров, ни у продвинутых юзеров таких прав нет. Будь внимательнее с правами.

Спасибки за помощь.

Сервисы в Delphi Найти похожие ветки