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

Кто-нибудь знает как поместить приложение 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;

{Выполнение апплета.}

CPL_DBLCLK:

ExecuteApp;

else Result:=0;

end;

end;

{Экспортирование функции CplApplet}
exports

CPlApplet;

begin
end.

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

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