Вопрос Работа со службой системы

Хамик

Старожил
Подскажите, как провести проверку на наличие службы в системе? И как определить работает ли в данный момент служба?
 

Tidro

Новичок
Если еще нужно, могу дллку написать которая будет проверять по имени
 

Tidro

Новичок
Код:
function IsServiceRun(Name:PAnsiChar):Integer;
external 'IsServiceRun@files:service.dll cdecl';
0 - Не работает/Остановлена
1 - Работает
2 - Ошибка
3 - Служба не найдена
-1 - Служба отключается(Занята)
Пример:

IsServiceRun('SysMain')
log(IntToStr(IsServiceRun('SysMain')));

Развлекайся 8-)
Я бы исходник длл выложил, но вижу тут это не принято)
 

Вложения

Последнее редактирование:
Сверху