Панель Управления

Кто-нибудь знает как поместить приложение Delphi в Панель Управления?

Если вы используете Delphi3, добавьте модуль Cpl в файл проекта.

Вот код примера.

library Project1; {Измените "program" на "library"}

uses
Cpl, {используем модуль Cpl} Windows, Forms, Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

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.

Для использования апплета измените его расширение с "dll" на "cpl" и поместите в системную директорию.

Апплет будет добавлен к списоку уже существующих (Display, Fonts, Mouse, System и другие). [000290]

Содержание раздела