Сегодня я хочу рассмотреть создание апплетов для Windows. Апплеты - это значки, расположенные на твоей панели управления. Проверь, вдруг это не так ;) Так вот, эти апплеты применяются для программ и оборудования Windows.

Все апплеты представляют собой обычные динамичекие библиотеки DLL. Единственное отличие от DLL - это расширение. У апплетов расширение CPL (Control Panel Library). Но обычная динамическая библиотека не всегда может быть апплетом, т.к. существуют правила, по которым создается CPL. Ну а если CPL выполнен правильно, то его можно пихнуть в директорию \%WINDIR%\System, где %WINDIR% - это директория, куда ты устанавливал Windows.

Но на самой панели управления находятся только значки. А сами программы хранят свои настройки в ini-файлах или в системном реестре. В системе Delphi предусмотрено создание апплетов для Windows. Для этого есть мастер. Выполни: File->New->Other (Файл->Новый->Другое)

В окне "New Items" нам нужно Control Panel Application. Автоматически создается стандартный код и модуль апплета. Позже, если появится необходимость добавить новый модуль, просто нужно выполнить то же самое, только в окне "New Items" выбрать Control Panel Module.

Самые важные свойства модуля апплета - это Caption и AppletIcon. В свойстве caption указывается подпись, которая будет на панели управления. AppletIcon - это значок апплета на панели управления. Нам остается только событие OnActivate. На вкладке Events в инспекторе объектов выберем событие OnActivate.

procedure TAppletModule1.AppletModuleActivate(Sender: TObject;

  Data: Integer);

begin

//А вот сюда вставляется оригинальный код выполнения

//операциии

end;

Теперь при компиляции проект в директории, где был сохранен проект, появится файл с расширением .cpl (например: project.cpl).Остается только этот файл скопировать (или перенести) в папку \Windows\System. У меня было два тестовых апплета (кстати, скомпилированным был один! файл).

На этом я хочу закончить свой рассказ о апплетах.