| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

stas ©   (2009-08-25 20:51:00) 

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

---

DVM   (2009-08-26 00:06:00) [1]

> stas ©

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

---

stas   (2009-08-25 23:44:00) [2]

Спасибо!

---

DVM   (2009-08-25 22:30:00) [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 21:57:00) [4]

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

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

---

Сергей М.   (2009-08-25 21:27:00) [5]

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

---

Наверх