Аплеты панели управления в Win7x64

← →
Gu (2011-05-10 06:34) [0]

Создаю через мастера новый аплет, меняю свойства, иконку (ну примерно как тут: http://www.delphimaster.ru/articles/applet/index.html). В реакции на клик делаю showmessage("test"), компилю, получаю ддл, переименовываю в цпл, в проводнике при запуске сообщение показывается. На винХП кладу в папку c:\win..\system32, открываю панель управления, иконку аплета видно и клик работает с тестовым сообщением.
Кладу в эту же папку (и дублирую на всякий случай в syswow64) на win7 (на 2008r2 тоже пробовал), в панели управления иконки нет. Рибут дело не исправляет.
Смотрю в режиме мелкие значки (т.е. отображаются все аплеты (и 32х-разрядные тоже)).
Что еще надо сделать, чтобы она там появилась?

← →
Gu (2011-05-10 06:36) [1]

Код:

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. ////////////// -------------------------- сам аплет 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.

← →
RTFM (2011-05-11 20:11) [2]

http://support.microsoft.com/kb/888832/en-us

Аплеты панели управления в Win7x64 Найти похожие ветки