Сервис

← →
Romul © (2002-08-30 14:42) [0]

Мне надо сделать прогу, чтобы она работала как сервис, но на самом деле сама бы с определенной переодичностью (по таймеру) проверяла бы, скажем, существование того или иного файла и в зависимости от этого предпринимала бы действия. Я в Delphi 6 выбрал Service Application все сделал + инсталировал и запустил его, но как туда добавить действие по таймеру не могу понять. Подскажите плиз.

← →
lenin © (2002-08-30 14:46) [1]

Добавь TTimer

← →
Anatoly Podgoretsky © (2002-08-30 14:49) [2]

Так это и есть сервис

← →
Romul © (2002-08-30 15:06) [3]

2lenin
Так я добавляю его, а потом в onStart пишу типа Timer1.Enabled:=true, но потом через установленные мною 30 секунд не появляется сообщение ShowMessage("Hi all!");

← →
Romul © (2002-08-30 17:09) [4]

← →
Ученик © (2002-08-30 17:18) [5]

>Romul © (30.08.02 17:09)
А сервис интерактивный ?

← →
Shaman_Naydak © (2002-08-30 17:23) [6]

Бросай вредные привычки из сервисов с окнами работать..
В лог надо писать

← →
Romul © (2002-08-30 17:55) [7]

Не, не интерактивный, просто он должен с определенной периодичностью (по таймеру че-то делать). Просто я хочу его как сервис написать, ну просто не в трэй его прятать а так как сервис чтоб он работал. Так как заставить там чего-то по таймеру делаться, в каком событии?

← →
ZrenBy © (2002-08-30 17:59) [8]

Посмотри SetTimer KillTimer

← →
Reindeer Moss Eater (2002-08-30 18:01) [9]

Timer1.OnTimer

>Romul © (30.08.02 17:55)
В этом случае ShowMessage ничего не покажет, точнее ты его не увидишь, показываться он будет каждые 30 секунд

А почему ShowMessage не видно? Мне он вобщем-то и не нужен, но все же. На самом деле я хочу каждые, скажем, 5 минут проверять базу данных на изменение, а компутер перед уходом не выключать, а просто выходить из сеанса Администратор, вот собственно и причина написания именно сервиса.

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