16.28.5. function GetServiceStatus
function GetServiceStatus(AServiceName: string): integer;
Возвращает код, отражающий текущее состояние службы или драйвера с именем AServiceName.
Коды:
-1 - некая общая ошибка коммуникации с API, обычно возникает в случае нехватки привилегий.
-2 - не удалось открыть службу с указанным именем. Возможно, указано имя несуществующей службы. В этом случае можно уточнить данные вызовом GetServiceStart
1 - Остановлена
2 - Запускается
3 - Останавливается
4 - Запущена в текущий момент и работает
5 - Продолжение работы службы ожидается
6 - Приостановка работы службы ожидается
7 - Служба приостановлена
Совместимость: AVZ 5.60 и выше
Начиная с версии AVZ 5.62 при помощи функции GetLastError можно проверить успешность выполнения данной операции и получить код ошибки.
Пример:
begin
AddToLog(IntToStr(GetServiceStatus('TermService')));
end.