Сервисы (или службы) стали одним из самых слабых мест в Windows 2000, потому что здесь можно зарегистрировать практически любую программу, а нользователи боятся заглядывать в оснастку сервисов и смотреть, что там происходит. Именно поэтому в "зловредном" коде часто используется технология сервисов.

В Delphi создание служб было упрощено так, что дальше просто некуда. Посмотрим, как в Delphi можно создать свой собственный сервис. Это можно сделать с помощью сложной и неприятной регистрации через Win API или с использованием средств, предоставляемых средой разработки Delphi. Зачем выдумывать пистолет, когда есть пулемет? Поэтому воспользуемся готовым классом - TService. Корпорация Borland как всегда все упрощает, и для создания сервиса нужно не больше усилий, чем на "Hello, World".

Запускаем Delphi и сразу закрываем созданный по умолчанию проект. Выберите пункт меню File ► New ► Other (для Delphi меньше 7-й версии просто File ► New). В появившемся диалоговом окне (рис. 3.2) перейдите на вкладку New и укажите пиктограмму Service Application. Можно считать, что сервис готов.

3.5. Сервисы

Рис. 3.2. Диалоговое окно выбора типа создаваемого проекта

Код главного модуля похож на все то, с чем вы уже привыкли работать. Но "изюминка" спрятана немного дальше, а именно в объекте. Если стандартное приложение происходит от объекта TForm, то здесь мы "пляшем мазурку" от TService.

Визуальная форма больше похожа на модуль данных (Data Module) и на ней можно размещать все, кроме визуальных компонентов. Это и понятно, ведь сервис работает невидимо для пользователя и ничего визуального на главной форме не должно быть. Визуальными могут быть какие-то дополнительные окна, которые появляются в ответ на определенные события, но сам сервис будет невидим.

3.4. Кавардак на Рабочем столе || Оглавление || 3.5.1. Свойства объекта TService


Delphi в шутку и всерьез: что умеют хакеры



Новости за месяц

  • Январь
    2022
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс