Текущий архив: 2003.12.23;
Скачать: CL | DM;
Вниз
Создание сервиса windows Найти похожие ветки
← →
bers (2003-10-27 14:48) [0]Уважаемые мастера!
Поскажите - как программно создать сервис windows и определить его свойства?
Заранее благодарен.
← →
Игорь Шевченко © (2003-10-27 14:50) [1]Рихтер, Кларк, разработка серверных приложений для Windows 2000
Или F1 Service Programs в win32.hlp
← →
_SammIk_ (2003-10-27 20:03) [2]Удалено модератором
Примечание: Тебе мало ?
← →
~~SammIk~~ (2003-10-27 20:23) [3]Удалено модератором
← →
+~SammIk~+ (2003-10-27 20:30) [4]Удалено модератором
← →
alex_*** (2003-10-28 09:21) [5]Удалено модератором
Примечание: Offtopic
← →
RusLand (2003-10-28 14:03) [6]В Делфях Выбираешь:
File/New/Other...
проект "Service Applications"
Для компонента Service1 (в Object Instector / Events)
Кликаешь 2 раза OnExecute
Созданное событие и есть так сказать тело твоего сервиса
пример:
procedure TService1.ServiceExecute(Sender: TService);
var s:TStringList;
begin
while not terminated do
begin
try
//Здесь чего-то делаешь например:
BEEP; //Бибикаешь
except
end;
sleep(5000);// Отдыхаем 5 секунд
ServiceThread.ProcessRequests(False);//Смотри хелп (потом как нибудь)
end;
end;
Осталось
Присвоить экранное имя (Service1 DisplayName):
"МОЙ ПЕРВЫЙ СЕРВИС УРА, СПАСИБО ВСЕМ"
Для запуска
C:\ПУТЬ\service1.exe /install
Заходишь в Сервиса и стартуешь.
Если надо перекомпилировать, то останавливаешь, компилишь, стартуешь.
Чтобы удалить
C:\ПУТЬ\service1.exe //uninstall
Все.
Кстати, не стоит делать вредоносные программы,
большее удовольствие приносит писание полезных программ.
Удачи!
Страницы: 1 вся ветка
Текущий архив: 2003.12.23;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.019 c
