Форум: "Начинающим";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];
ВнизАплеты панели управления в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c