| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Gu ©   (2011-05-10 06:34:00) 

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

---

RTFM   (2011-05-11 20:11:00) [1]

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

---

Gu   (2011-05-10 06:36:00) [2]

Код:


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.


---

Наверх