Home

Page 351
Page 351
background image

344 Глава 7

В разделе const объявляется строковая константа со значением
Это имя процедуры инициализации (тип этой процедуры мы только что

описали в разделе type) из встраиваемого модуля.
Самое последнее, что нам нужно сделать, прежде чем мы приступим

к программированию, это объявить несколько переменных в разделе private:

private

{ Private declarations }

Первая переменная будет инициализировать модуль и хранить ссылку на

него. Эта переменная должна быть доступной на протяжении всего времени
выполнения программы. Вторая переменная — это список, в который мы

будем вносить все указатели на загруженные модули PInterface, чтобы со-
хранять все ссылки целыми и невредимыми.

Для работы с дополнительными модулями у нас все готово. Теперь во время

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

на наличие

 Для этого в обработчике события

 напишем

следующий код:

procedure

 TObject};

 Attr: Integer;

 TSearchRec;

PluginHandle: THandle;

begin

PlugDir

 +

Attr

 faReadOnly or faHidden or faSysFile or faArchive;

Found

 Attr, SearchRec);

while Found

 0 do

begin

if

 then

begin

try


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

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