А как узнать состояние NT службы?

[jangle]

Обнаружил неприятную ситуацию, моя программа крашится при старте если остановлена служба смарт-карт.
Нужно при запуске проги определять ее состояние и пытаться запустить если она остановлена.
Из командной строки это делается так:

Код: Выделить всё

sc query scardsvr


если STOPPED

Код: Выделить всё

sc start scardsvr

Вопрос как это сделать API функциями?

[jangle]

Короче разобрался. Модуль надо подключить к проекту, а в процедуре Мain прописать старт службы и смену ее настроек

Код: Выделить всё

Sub Main()

Dim Serv As SERVICE_STATE
Dim Result As Long
Serv = NTServiceControl.GetServiceStatus("scardsvr")
If Serv <> SERVICE_RUNNING Then
  Result = MsgBox("SmartCard PC/SC service is not running!" & vbCrLf & vbCrLf & "Start service?", vbExclamation + vbOKCancel, "")
    If Result = 1 Then
        Serv = NTServiceControl.StartNTService("scardsvr")
         Sleep 5000
         Result = NTServiceControl.SetServiceConfig("scardsvr", NTServiceControl.SERVICE_WIN32_SHARE_PROCESS, NTServiceControl.SERVICE_AUTO_START, 1, 0)
          Sleep 2000
      If Serv <> SERVICE_RUNNING Or Serv <> SERVICE_START_PENDING Then
          MsgBox "Error start!", vbCritical, "Advanced RFID Explorer"
      End If
    End If
  End If

....



[Qwertiy]

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