Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить, запущена ли служба? [D7, WinXP]


pavel_guzhanov ©   (2009-04-15 12:03:00) 

Нужно определить, запущена ли служба. И, если не запущена, то запустить ее. Как?


  (2009-10-15 14:15:00) [1]

Удалено модератором


SPeller   (2009-04-16 04:08:00) [2]


> Спасибо. Пойду в справку, изучать

Не знаю как в предыдущих дельфях, но в 2009 последний параметр этой функции определен неправильно. Он должен иметь тип DWORD, а не PDWORD, поскольку он var. Можно переписать ее для себя, либо использовать приведение типа при передаче параметра.


pavel_guzhanov   (2009-04-15 15:07:00) [3]


> Игорь Шевченко ©   (15.04.09 13:16) [4]
>
> QueryServiceStatusEx


Спасибо. Пойду в справку, изучать :о)


12   (2009-04-15 13:18:00) [4]

2ИШ
Как ты меня любишь :)

pavel_guzhanov ©   (15.04.09 13:09) [3]
ну или так, я про смысл говорю
просто у меня есть один сервис, если глюкнет (не я писал, не я:)), то его надо остановить, минут 5-10 подождать, потом стартовать. Иначе работать отказывается. Я и написал job, где перед началом раб дня его останавливаю, не важно, как он себя чувствует, потом стартую..


Игорь Шевченко   (2009-04-15 13:16:00) [5]

QueryServiceStatusEx


pavel_guzhanov   (2009-04-15 13:09:00) [6]

а зачем тогда останавливать? Что, если только пытаться стартануть?


Игорь Шевченко   (2009-04-15 13:06:00) [7]

12 ©   (15.04.09 12:29) [1]

попробуй узнать своим методом, запущена ли служба "Удаленный вызов процедур". Я надеюсь, мы тебя после этого долго не увидим :)


12   (2009-04-15 12:29:00) [8]

стопни и запускай, запущена - не стопнется, но и не беда

net stop lanmanserver >> c:\\ResetLog.txt
net start lanmanserver >> c:\\ResetLog.txt


Наверх

Титульная страница Поиск, карта сайта Написать письмо