Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

arhanegl_isa © (2006-03-15 08:46:00)
У меня имеется сервис, который в определенное время должен запускать *.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;

Leonid Troyanovsky (2006-03-15 17:35:00) [1]

> arhanegl_isa (15.03.06 08:46)

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

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

--
Regards, LVT.

Polevi (2006-03-15 16:39:00) [2]
>отслежываю
ух ты

clickmaker (2006-03-15 11:03:00) [3]

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

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

Reindeer Moss Eater (2006-03-15 10:48:00) [4]
Я и не говорил, что оно выводится.
Я говорил, что на кнопку никто не жмет.
Само сообщение может быть не видно на текущем десктопе.

arhanegl_isa (2006-03-15 10:45:00) [5]
В том то и дело что сообщение об успешной инсталяции не выводится а процесс нормально функционирует

Reindeer Moss Eater (2006-03-15 10:42:00) [6]
но через нескольео секунд пишет вызвана ошибка

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

ps: /silent

arhanegl_isa (2006-03-15 10:40:00) [7]
При запуске сервиса apiserv.exe /Install.
Он инсталируется и запускается. В списке служб присутствует, но через нескольео секунд пишет вызвана ошибка извините за неудобства

Сергей М. (2006-03-15 10:15:00) [8]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »