Скачать: CL | DM;

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

← →
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;

---

← →
stas ©   (2009-08-25 23:44) [4]

Спасибо!

---

← →
DVM ©   (2009-08-26 00:06) [5]

> stas ©

Там еще, наверное, надо добавить:
CloseServiceHandle(hSvc)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c