DelphiXe では、マスター オブ プロジェクトを使用してコントロール パネルの新しいアプレットを作成し、アイコンや名前などを変更します。コンパイルし、dll を受け取り、*.cpl に名前を変更します。このファイルの先頭にある win.explorer にメッセージが表示されます。WinXp では、このファイルを c:\windows\system32 に挿入し、Windows のコントロール パネルを開きます。アプレットが表示され、その開始時にテスト メッセージが目立ちます。Win7x64 (または 2008r2) で作成しすぎたのですが、アプレットのコントロール パネルで、再起動しても問題が解決しません。c:\windows\syswow64 でファイルを複製しようとしましたが、結果はありません。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.