Сервис

← →
Dms (2003-03-12 13:43) [0]

Создал сервис, но он после иснталляции ( /install) не запускается. Приходится через менеджер ручками запускать. Вопрос в том, нельзя ли указать сервису, чтобы он сразу запускался после инсталляции ?

← →
AlexanderSK © (2003-03-12 13:47) [1]

Вобще сервис будет запущен системой после перезагрузки!

← →
Dms (2003-03-12 13:52) [2]

хотелось бы, чтоб сразу заработал ...

← →
AlexanderSK © (2003-03-12 14:03) [3]

Можно конечно попытаться его самому запустить (программно)

← →
Dms (2003-03-12 14:20) [4]

Вот. А как сервис сам себя запустит ?

← →
AlexanderSK © (2003-03-12 14:27) [5]

Попробуй ему в обработчик OnInstll засунуть этот код (Service1 - имя твоего сервайса):

var
hM, hS, H: THandle;
Buf: Array[0..255] of Char;
Size: Cardinal;
Buf2: PChar;
begin
hM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
if hM = 0 then
ShowMessage("Open Manager Error!");
Size := SizeOf(Buf);
if not GetServiceKeyName(hM, "Service1", Buf, Size) then
ShowMessage("Get Service Key Name Error!");
hS := OpenService(hM, Buf, SERVICE_ALL_ACCESS);
if hS = 0 then ShowMessage("Open Service Error!");
StartService(hS, 0, Buf2);
end;

← →
Dms (2003-03-12 14:37) [6]

помогло :)
спасибо

Незачто!

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