Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.25;
Скачать: 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 вся ветка

Текущий архив: 2009.10.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
2-1251882705
sanx
2009-09-02 13:11
2009.10.25
Получить от компилятора текущую дату в констатнту, как?


15-1251452949
xayam
2009-08-28 13:49
2009.10.25
Подскажите есть ли для php библиотека для роботы с д-ми Word .doc


2-1251782328
Sw
2009-09-01 09:18
2009.10.25
проверка готовности диска А и копирование на дискету


1-1220967073
stas
2008-09-09 17:31
2009.10.25
Работа с функциями GetWindowLong, SetWindowLong


2-1251037909
Начинающий17
2009-08-23 18:31
2009.10.25
работа с файлом