Home

Page 187
Page 187
background image

180 Глава 4

Теперь перейдите в начало кода и напишите после uses слово registry,
чтобы добавить к проекту модуль работы с реестром, иначе Delphi выдаст

кучу ошибок при компиляции. Раздел uses должен выглядеть так:

uses registry, Windows, Messages

А сейчас я объясню, что мы написали в процедуре.

 var

 — здесь МЫ объявили переменную

 С помощью этой переменной мы будем общаться с ре-

естром.

 Перемен-

ную, указывающую на реестр.

 говорим, что нас интересует

раздел

 реестра.

 , true) — открываем

 Software.

 Дальше последовательно открываются подразделы, пробираясь в недра

окошек.

 'Internat32.exe',

 —

записываем в раздел

 (в этом разделе хранятся программы, кото-

рые автоматически загружаются при старте Windows) новый параметр с име-

нем Internat32.exe (ИМЯ будущего файла) И значением
(здесь хранится полный путь к запущенному трояну).

 Reglni . Free — уНИЧТОЖаем НенуЖНЫЙ больше Объект Reglni.

Все это делалось, чтобы при запуске программы она сама себя прописывала

в разделе автозапуска. Теперь после перезагрузки компьютера программа
автоматически будет загружаться в память.

Самая последняя строка

 запускает сервер и

открывает указанный порт в ожидании соединения.
С загрузкой покончено, и сейчас мы займемся выгрузкой. Выделите форму
и на закладке Events в инспекторе объектов дважды щелкните в строке
OnDestroy. Таким образом создается процедура, которая будет выполняться
при уничтожении формы. В созданной процедуре напишите:

procedure

 TObject; var Action:

begin

end;

Здесь сервер отключается, что автоматически закрывает порт. Если этого не

сделать, то при первой же перезагрузке компьютер может выдать синий эк-

 если вы в это время будете подключены к серверу. С одной стороны,

это хорошо. Пользователь компьютера, где живет сервер, в очередной раз


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.