У меня есть служба. Вней я отслежываю время!

← →
arhanegl_isa (2006-03-15 08:46) [0]

У меня имеется сервис, который в определенное время должен запускать *.Bat файл, но почемуто выходит ошибка через несколько секунд после его запуска!
Вот текст обработки времени:
try
while (Status.dwCurrentState <> SERVICE_STOP_PENDING) do begin
if s="" then begin assignfile(f,"date.txt");
if IOresult=0 then reset(f);
read(f,s); closefile(f);end else
if timetostr(time)=s then begin
shellexecute(handle,"open","becup.bat",nil,nil,sw_normal);
ErrorLog("ServiceThread - Привет все нормально!");
end;
sleep(1000);
end;
result:= 0;
finally
Status.dwCurrentState:= SERVICE_STOP;
end;

← →
Сергей М. © (2006-03-15 10:15) [1]

> выходит ошибка через несколько секунд после его запуска

Запуска чего ? Сервиса или bat-файла ?
Какая ошибка ?

← →
arhanegl_isa (2006-03-15 10:40) [2]

При запуске сервиса apiserv.exe /Install.
Он инсталируется и запускается. В списке служб присутствует, но через нескольео секунд пишет вызвана ошибка извините за неудобства

← →
Reindeer Moss Eater © (2006-03-15 10:42) [3]

но через нескольео секунд пишет вызвана ошибка

Видимо потому, что никто не нажал Ок в окне сообщения о том, что служба инсталирована.

ps: /silent

← →
arhanegl_isa (2006-03-15 10:45) [4]

В том то и дело что сообщение об успешной инсталяции не выводится а процесс нормально функционирует

← →
Reindeer Moss Eater © (2006-03-15 10:48) [5]

Я и не говорил, что оно выводится.
Я говорил, что на кнопку никто не жмет.
Само сообщение может быть не видно на текущем десктопе.

> shellexecute(handle,"open","becup.bat",nil,nil,sw_normal);

сервис интерактивный, я так понимаю?
что за handle? и почему через shellexecute, а не CreateProcess?

>отслежываю
ух ты

> arhanegl_isa (15.03.06 08:46)

> У меня имеется сервис, который в определенное время должен
> запускать *.Bat файл, но почемуто выходит ошибка через несколько

У тебя неправильный сервис.
Правильный - это Task Scheduler (или просто Schedule)

--
Regards, LVT.

У меня есть служба. Вней я отслежываю время! Найти похожие ветки