В DelphiXe я создаю через мастер проектов новый апплет Панели управления, меняю иконку, название и т. Д.
Для реакций активации я пишу Showmessage («Тест»); Скомпилируйте, получите dll, переименуйте в * .cpl. В win.explorer при запуске этого файла появляется сообщение.
В WinXp я вставляю этот файл в c: \ windows \ system32, открываю панель управления Windows, вижу апплет и при его запуске выдается тестовое сообщение.
Я делаю тоже самое на Win7x64 (или на 2008r2), но в панели управления апплета не наблюдаю, перезагрузка проблемы не решает.
Пробовал дублировать файл в c: \ windows \ syswow64, тоже нет результата.
Как заставить апплет появиться на панели под Win7?
Код:
library Project1;
uses
CtlPanel,
AppletModule1 in 'AppletModule1.pas' {AppletModule1AppletModule: TAppletModule};
exports CPlApplet;
{$R *.RES}
{$E cpl}
begin
Application.Initialize;
Application.CreateForm(TAppletModule1AppletModule, AppletModule1AppletModule);
Application.Run;
end.
////////////// and Unit module
unit AppletModule1;
interface
uses
Windows, Messages, SysUtils, Classes, CtlPanel, Dialogs;
type
TAppletModule1AppletModule = class(TAppletModule)
procedure AppletModuleActivate(Sender: TObject; Data: Integer);
private
{ private declarations }
protected
{ protected declarations }
public
{ public declarations }
end;
var
AppletModule1AppletModule: TAppletModule1AppletModule;
implementation
{$R *.DFM}
procedure TAppletModule1AppletModule.AppletModuleActivate(Sender: TObject;
Data: Integer);
begin
Showmessage('Test');
end;
end.