在DelphiXe中,我通过项目主人创建了控制面板的新小程序,我更改了图标,名称等。 为了激活反应,我编写了Showmessage('Test');编译,接收dll,在* .cpl中重命名。在这个文件开始的win.explorer中出现消息。 在WinXp中,我在c:\ windows \ system32中插入这个文件,打开控制面板的Windows,我看到小程序,并在其开始处显示测试消息。 我在Win7x64(或2008r2)上做的太多了,但是在applet的控制面板中我没有注意到,重新启动一个问题并没有解决。 试图复制c:\ windows \ syswow64中的文件,也没有结果。 如何强制applet出现在Win7下面板?控制面板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.
顾,你错过了几个步骤(关于注册)。尝试阅读MSDN文档http://msdn.microsoft.com/en-us/library/bb757044.aspx – RRUZ 2011-05-10 17:18:01
谢谢!不知道,现在小程序也注册需求。会标记你的评论质量的答案,但我不知道它在这里做。 – 2011-05-11 10:48:49