Конференция VBStreets

**patm** » 23.05.2003 (Пт) 10:33

Не удается запустить службу.Вручную можно, а из VBA не получается:

hSCManager = OpenSCManager(vbNullString, vbNullString,SC_MANAGER_CONNECT)
hService = OpenService(hSCManager, "ihDataArchiver", SERVICE_ALL_ACCESS)
b=StartService(hService, 0, 0)

первые две ф-ции (из библиотеки Advapi32.dll) срабтывают нормально, возвращают ссылки, последняя выдает false.
Хорошо, если бы кто-нибудь помог. Спасибо.

**SergeySV** » 23.05.2003 (Пт) 11:17

patm писал(а):Не удается запустить службу.Вручную можно, а из VBA не получается:

hSCManager = OpenSCManager(vbNullString, vbNullString,SC_MANAGER_CONNECT)
hService = OpenService(hSCManager, "ihDataArchiver", SERVICE_ALL_ACCESS)
b=StartService(hService, 0, 0)

первые две ф-ции (из библиотеки Advapi32.dll) срабтывают нормально, возвращают ссылки, последняя выдает false.
Хорошо, если бы кто-нибудь помог. Спасибо.

Вообще-то это сообщение для форума: Visual Basic. Там щас ребята как раз живо обсуждают похожую проблему: http://bbs.vbstreets.ru/viewtopic.php?t=1279&start=0

**Rainbow** » 23.05.2003 (Пт) 12:09

2patm: Попробуй через GetLastError узнать, что там не так...
У меня твой пример нормально отработал.

Можешь еще попробовать через ControlService, но он все равно в конечном итоге то же самое делать будет...

Еще тут может что-нибудь найдешь
http://bbs.vbstreets.ru/viewtopic.php?p ... ight=#7117

**patm** » 23.05.2003 (Пт) 12:38

Спасибо. Получилось + статья в RSDN интересная.

**RayShade** » 23.05.2003 (Пт) 13:02

А уважаемый patm получает замчеание за флуд.

**patm** » 23.05.2003 (Пт) 13:22

да, немного перебор получился. Прошу прощения

Конференция VBStreets

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

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

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

Кто сейчас на конференции