Для создания апплетов (программ для Панели управления) необходимо сделать
следующее:
-
Создать новый проект. И перейти в
-
Измените "program" на "library": library Project1;
-
Написать следующий код
// используем модуль Cpl
uses
Cpl,
Windows,
Forms,
Unit1 in
'Unit1.pas' {Form1}; // Все формы которые есть
procedure ExecuteApp;
begin
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
end;
// Сallback-функция для экспорта в Панель Управления
function
CPlApplet(hwndCPl: THandle; uMsg: DWORD;lParam1, lParam2:
LongInt):LongInt;stdcall;
var
NewCplInfo:PNewCplInfo;
begin
Result:=0;
case
uMsg of
// Инициализация должна возвращать
True.
CPL_INIT:
Result:=1;
// Число
апплетов
CPL_GETCOUNT:
Result:=1;
// Помещаем информацию об этом
апплете в Панель
управления.
CPL_NEWINQUIRE:
begin
NewCplInfo:=PNewCplInfo(lParam2);
with
NewCplInfo^
do
begin
dwSize:=SizeOf(TNewCplInfo);
dwFlags:=0;
dwHelpContext:=0;
lData:=0;
//
Иконка для отображения на Панели
Управления.
hIcon:=LoadIcon(HInstance,'MAINICON');
// Имя
апплета
szName:='Project1';
// Описание этого
апплета.
szInfo:='Апплет.';
szHelpFile:='';
end;
end;
//
Выполнение апплета.
CPL_DBLCLK:
ExecuteApp;
else
Result:=0;
end;
end;
// Экспортирование функции
CplApplet
exports
CPlApplet;
begin
end.
RegisterServiceProcess
После компиляции (Ctrl+F9) мы получим файл с расширением dll. Теперь нам надо
изменить это расширение на cpl. После изменения копируйте полученный файл в
\windows\system 32\