Форум: "Начинающим";
Текущий архив: 2009.10.25;
Скачать: [xml.tar.bz2];
Вниз
Установлен ли сервис Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
