Установлен ли сервис

← →
stas © (2009-08-25 20:51) [0]

Подскажите пожалуйста млжно ли в сервисе узнать установлен он уже или нет?
т.е. при запуске myservice.exe /install сначала произвести проверку на наличие этого сервиса, а потом выполнять команду?

← →
Сергей М. © (2009-08-25 21:27) [1]

см. событие TService.BeforeInstall

← →
stas © (2009-08-25 21:57) [2]

Сергей М. © (25.08.09 21:27) [1]

Это ясно, но все равно спасибо! а каким методом узнать установлена ли эта служба

← →
DVM © (2009-08-25 22:30) [3]

function ServiceInstalled(AMachine, AService: string): boolean; var hManager, hSvc: SC_Handle; begin result := false; hManager := OpenSCManager(PChar(AMachine), nil, SC_MANAGER_CONNECT); if hManager > 0 then begin hSvc := OpenService(hManager, PChar(AService), SERVICE_QUERY_STATUS); if hSvc > 0 then result := true; CloseServiceHandle(hManager); end; end;

Спасибо!

Установлен ли сервис Найти похожие ветки