Советы по Delphi
       

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


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

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

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

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

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

procedure ExecuteApp;
beginApplication.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:beginNewCplInfo:=PNewCplInfo(lParam2);with NewCplInfo^ dobegindwSize:=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]



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