Запуск службы

← →
clickmaker © (2008-03-17 15:20) [40]

> И справку я уже перчитал 100 раз...ну не вижу я где написанно
> с какими параметрами нада запускать OpenService что бы можно
> было изменять свойства

а это что?

BOOL ChangeServiceConfig(
SC_HANDLE hService,
...

hService

Identifies the service. This handle is returned by the OpenService or CreateService function and must have SERVICE_CHANGE_CONFIG access.

← →
Сергей М. © (2008-03-17 15:22) [41]

> е вижу я где написанно

Врешь)

Это

SERVICE_CHANGE_CONFIG Enables calling of the ChangeServiceConfig function to change the service configuration

видишь ?

← →
F@T@L_Err0r (2008-03-17 15:24) [42]

var
SCManager:THandle;
Service:THandle;
p:PChar;
begin
SCManager:=OpenSCManager("",nil,GENERIC_READ);
if SCManager=0 then RaiseLastOSError;
Service:=OpenService(SCManager,"Messenger",SERVICE_CHANGE_CONFIG or SERVICE_START or SERVICE_STOP);
ChangeServiceConfig(Service,SERVICE_INTERACTIVE_PROCESS,SERVICE_AUTO_START,SERVI CE_NO_CHANGE,nil,nil,nil,nil,nil,nil,nil);

Ну дак а я как делаю...вроде б все так же...где же я допустил ошибку...

← →
Сергей М. © (2008-03-17 15:31) [43]

> где же я допустил ошибку

Какой ты, однако, мнительный)

Ты у системы спроси, ошибся ты или не ошибся и если ошибся то в чем конкретно !

На то и система, чтобы следить за ошибочностью твоих действий)

Service:=OpenService(чего-то там);
Win32Check(Service <> 0);
Win32Check(ChangeServiceConfig(чего-то там));

← →
F@T@L_Err0r (2008-03-17 15:35) [44]

Пишет что отказано в доступе...Но блин ведь все так как в справке...ниче не понимаю...

← →
Сергей М. © (2008-03-17 15:40) [45]

> блин ведь все так как в справке

Не-а .. все да не все) ..

Перечитывай справку по параметрам OpenSCManager

← →
F@T@L_Err0r (2008-03-17 15:50) [46]

Сделал SCManager:=OpenSCManager("",nil,GENERIC_Write);
Тот же результат...

← →
Сергей М. © (2008-03-17 15:54) [47]

А параметр SC_MANAGER_ALL_ACCESS ты там видел ?

← →
F@T@L_Err0r (2008-03-17 15:57) [48]

>А параметр SC_MANAGER_ALL_ACCESS ты там видел ?

Пробывал то же самое...Отказано в доступе...

← →
Сергей М. © (2008-03-17 16:08) [49]

Выясни, какая конкретно ф-ция возвращает этот отказ

← →
F@T@L_Err0r (2008-03-17 16:37) [50]

WIn32Check(ChangeServiceConfig(Service,SERVICE_NO_CHANGE,SERVICE_AUTO_START,SERV ICE_NO_CHANGE,nil,nil,nil,nil,nil,nil,nil));

Вот эта...Но в ней вроде б все правильно...

> SERVICE_NO_CHANGE,SERVICE_AUTO_START,SERV ICE_NO_CHANGE

Фигню написал - фигню и получил.
ты сам-то понял, что ты тут понацарапал ?)

← →
F@T@L_Err0r (2008-03-17 16:56) [52]

Ну ваще то ето уже модификация после очередног оексперемента ... в оригенале ето выглядит так:
WIn32Check(ChangeServiceConfig(Service,SERVICE_WIN32_OWN_PROCESS ,SERVICE_AUTO_START,SERVICE_NO_CHANGE,nil,nil,nil,nil,nil,nil,nil));
А второй параметр SERV ICE_NO_CHANGE ето параметр отвечает насколько я понял из спрвки за восстановление после сбоя или я не прав???
dwErrorControl

Specifies the severity of the error if this service fails to start during startup, and determines the action taken by the startup program if failure occurs. One of the following values can be specified:

Value Meaning
SERVICE_ERROR_IGNORE The startup (boot) program logs the error but continues the startup operation.
SERVICE_ERROR_NORMAL The startup program logs the error and puts up a message box pop-up but continues the startup operation.
SERVICE_ERROR_SEVERE The startup program logs the error. If the last-known-good configuration is being started, the startup operation continues. Otherwise, the system is restarted with the last-known-good configuration.
SERVICE_ERROR_CRITICAL The startup program logs the error, if possible. If the last-known-good configuration is being started, the startup operation fails. Otherwise, the system is restarted with the last-known good configuration.
SERVICE_NO_CHANGE The existing StartType value is not to be changed.

http://forum.chertenok.ru/faq_online.php?n=114

Запуск службы Найти похожие ветки