0

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.
4

1 に答える 1