Скачать: CL | DM;

Аплеты панели управления в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c