Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2008, 17:22   #1
miae
 
Регистрация: 18.01.2008
Сообщений: 5
По умолчанию Создание защищенного сервиса

Как сделать сервис, который нельзя остановить и перезапустить ?
miae вне форума Ответить с цитированием
Старый 18.01.2008, 18:32   #2
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

чтобы создать такой сервис надо перехватывать функцию NtOpenProcess (из модуля ntdll.dll) во всех процессах либо в ядре. В перехватчике этой функции надо смотреть: если кто-то пытается открыть процесс сервиса, то просто возвращать ноль. также необходимо перехватывать функции NtOpenThread, NtTerminateProcess и NtTerminateThread для полной уверенности. Именно так делают все антивирусы и файрволлы.
Глобальный перехват функций описан в трёх великих статьях Ms-Rem'a на сайте "васм точка ру"
rpy3uH вне форума Ответить с цитированием
Старый 19.01.2008, 00:12   #3
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Мне всё же интересно, как написать норм-ый сервис. Пример простого желательно. Надо же понять как их делают. Поиск интересного недал.
Alter вне форума Ответить с цитированием
Старый 19.01.2008, 08:40   #4
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

файл-> новый-> другое-> Служба
вот здесь написано http://programmersforum.ru/attachmen...8&d=1163783508
rpy3uH вне форума Ответить с цитированием
Старый 21.01.2008, 17:20   #5
miae
 
Регистрация: 18.01.2008
Сообщений: 5
По умолчанию

Спс, такой файл у меня уже есть, вот только не проверял ...
miae вне форума Ответить с цитированием
Старый 21.01.2008, 18:54   #6
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
Вопрос ПОПОДРОБНЕ

Цитата:
Сообщение от rpy3uH Посмотреть сообщение
Это хорошо, но очень урезано. Картинок нет, хотя может и ненужно. Пример пользования отсутствует, только описание. Непонятно, хотелось бы увидеть пример с использованием хотя бы TServise(который в архиве описывается).
Alter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запретить завершение сервиса(даже через диспетчер) Alter Win Api 13 12.08.2009 00:41
Создание dll John_chek Общие вопросы Delphi 3 24.09.2007 14:26
Как запустить программу из сервиса Маркъ Общие вопросы Delphi 5 13.02.2007 00:29
как узнать путь запущенного сервиса Alar Общие вопросы Delphi 0 30.10.2006 11:18