Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

Сервисы.   Найти похожие ветки 

 
ilka ©   (2003-10-14 22:38) [0]

Доброго времени суток.Есть работающий сервис.
Если его запускать так:
WinExec("1.exe /install",SW_HIDE);
WinExec("net start "name"",SW_HIDE);

то почемуто не работает
ScH:=OpenSCManager(nil,nil,SC_MANAGER_CONNECT);
Sch2:=OpenService(Sch,"name",SERVICE_ALL_ACCESS);

пишет что сервис не существует
а если я ставлю сервис через
OpenSCManager(nil,nil,SC_MANAGER_CONNECT);
OpenService(Sch,"name",SERVICE_START);
if Sch2<>0 then
if not StartService(Sch2,0,p) then
ShowMessage(SysErrorMessage(GetLastError));

пишет что "The system cannot find the file specified".

Вопрос(ы):
есть ли способ (програмно)определить состояние сервиса если я запускаю его через WinExec
почему не работает StartService


 
Digitman ©   (2003-10-15 09:11) [1]

после программной регистрации сервиса проверь как минимум соотв.запись в реестре, которая д.б. быть создана при регистрации

например,

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MySvcName

ImagePath = Dev:\SvcDir\MySvcExeFile.exe

где Dev:\SvcDir\MySvcExeFile.exe должен отражать корректный существующий путь к исп.файлу сервиса



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

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

Наверх




Память: 0.46 MB
Время: 0.03 c
14-89536
Антон
2003-10-09 13:16
2003.10.27
Компонет


6-89450
kopcap
2003-09-02 13:32
2003.10.27
Работа с файлами...


14-89485
DeMoN-777
2003-10-07 01:15
2003.10.27
Подскажите плиз самый дешевый телефон c поддержкой GPRS


1-89386
Пубертанец
2003-10-15 14:25
2003.10.27
Форма - контейнер для Excel


6-89443
saperxl
2003-08-29 15:10
2003.10.27
Delphi -> Outlook Express