• 追加された行はこの色です。
  • 削除された行はこの色です。
[[戻る>DoldoWorkz#delphi]]

*DelphiでCharu3プラグインを作る [#b6d19f99]
DelphiでCharu3プラグインを作る際にハマった事や参照した場所等をメモしていきます。
#hr
#contents
#hr

*Charu3とは? [#se519ac2]
ケイジさんが作成した、クリップボード拡張+入力支援ソフトです。~
[[■KeiziWeb ver 4.3>http://keijiweb.com/software.html]]~
※2010/2/4あたりに移転した様です~
[[■Keijiweb ver β - どうしてkeijiweb.comになったのか?>http://keijiweb.com/dView.pl?m=1&user=keizi&thid=20100207032344&tid=20100207050103]]~

*ソフト公開 [#x9c3e32b]
**DelphiでCharu3プラグインを作るサンプルソース&DLL [#d4e7533a]
DelphiでCharu3のプラグインを作る方法が書かれているソースが入っています。~
&color(red){''2008/3/2修正 Unicodeに完全対応''};(今まではShift-JISで処理していたのをUnicodeに完全対応)~
~
ダウンロード
#ref(CharuPlugInTest.LZH)
-サンプルソースの著作権~
[[&ref(http://i.creativecommons.org/l/by/2.1/jp/80x15.png);>http://creativecommons.org/licenses/by/2.1/jp/]]
この作品は[[クリエイティブ・コモンズ・ライセンス>http://creativecommons.org/licenses/by/2.1/jp/]]の下でライセンスされています。~
-TntWare Delphi Unicode Controls の著作権~
Copyright (c) 2002-2007, Troy Wolbrink (www.tntware.com) 

**DelphiTControlToName [#ic824452]
 DelphiのIDE(統合開発環境)で、TControlから派生したクラス(見えているコンポーネント全てです)をコピーして、このプラグインを通すと、コピーしたクラスのNameプロパティのリストが改行区切りで返されます。~

ダウンロード
#ref(DelphiTControlToName100.LZH)
[[&ref(http://i.creativecommons.org/l/by/2.1/jp/80x15.png);>http://creativecommons.org/licenses/by/2.1/jp/]]
この作品は[[クリエイティブ・コモンズ・ライセンス>http://creativecommons.org/licenses/by/2.1/jp/]]の下でライセンスされています。

**LoadHtmlHelp [#s8731a16]
 設定されたHtmlHelpファイルを開いて指定したキーワードで検索します。~
 コマンドライン版もありますので、他の環境でも使えると思います。~
 プログラミング言語のリファーレンスマニュアルがHtmlHelpファイルだった場合、エディタ上で文字列を選択してヘルプを引くような使い方を想定しています。~

ダウンロード~
#ref(LoadHtmlHelp.ZIP)
[[&ref(http://i.creativecommons.org/l/by/2.1/jp/80x15.png);>http://creativecommons.org/licenses/by/2.1/jp/]]
この作品は[[クリエイティブ・コモンズ・ライセンス>http://creativecommons.org/licenses/by/2.1/jp/]]の下でライセンスされています。

*はまり雑記 [#pcd7570c]
**参考にしたページ [#ge61672d]
-[[KeiziWeb ver 4.3 Charu3>http://keiziweb.com/software.html]]~
クリップボード拡張+入力支援ソフト「Charu3」のダウンロードページです。~
ここに一緒にある「プラグイン開発キット」の内容を元しています。~

-[[Delphiメーリングリスト>http://www.users.gr.jp/content/delphiml.aspx]]~
Delphiのメーリングリストです。~
今回プラグインを作るに当たって、はまっていた内容をこのメーリングリストで教えていただきました。~

-[[About Delphi>http://www2.big.or.jp/~osamu/Delphi/]]~
Delphiのメーリングリストの過去ログが置いてあります。~

**DelphiでCharu3プラグインを作るサンプルソース [#c31fbdb3]
*S-JIS版 [#b32a2c2d]
 library CharuPlugInTest;
 
 { DLL でのメモリ管理について:
   もしこの DLL が引数や返り値として String 型を使う関数/手続きをエクスポー
   トする場合、以下の USES 節とこの DLL を使うプロジェクトソースの USES 節
   の両方に、最初に現れるユニットとして ShareMem を指定しなければなりません。
   (プロジェクトソースはメニューから[プロジェクト|ソース表示] を選ぶこと
   で表示されます)
   これは構造体やクラスに埋め込まれている場合も含め String 型を DLL とやり
   取りする場合に必ず必要となります。
   ShareMem は共用メモリマネージャである BORLNDMM.DLL とのインターフェース
   です。あなたの DLL と一緒に配布する必要があります。BORLNDMM.DLL を使うの
   を避けるには、PChar または ShortString 型を使って文字列のやり取りをおこ
   なってください。}
 
 uses
   SysUtils,
   Classes,
   Windows,
   System,
   Messages;
 
 {$R *.res}
 
 (*
 // Charu3DLL_SRC\Plugins\addBR\replace.cppのソース引用
 // Cの場合の構造体
 //---------------------------------------------------
 // データ構造体
 //---------------------------------------------------
 struct STRING_DATA
 {
 	char	m_cKind;		//データ種別
 	char	m_cIcon;		//アイコン種別
 	int		m_nMyID;		//データのID
 	int		m_nParentID;	//親データのID
 	time_t	m_timeCreate;	//作成日時
 	time_t	m_timeEdit;		//変更日時
 	CString  m_strTitle;	//設定データタイトル
 	CString  m_strData;		//設定データ文字列
 	CString  m_strMacro;	//拡張用文字列データ
 };
 *)
 
 // Delphiの場合の構造体
 // ---------------------------------------------------
 type
   TSTRING_DATA = record
     m_cKind: Char;         // データ種別         (Charu3:種類)
                            //   1:一時データ 2:ロック
     m_cIcon: Char;         // アイコン種別       (Charu3:アイコン)
                            //   0:普通ロック項目 1:日時 時間系 2:ファイル実行
                            //   3:関連付け実行 4:文字列選択 5:クリップボード
                            //   6:プラグイン 7:キー入力 255:自動選択
     m_nMyID: Integer;      // データのID         (何を示したIDなのか不明)
     m_nParentID: Integer;  // 親データのID       (何を示したIDなのか不明)
     m_timeCreate: LongInt; // 作成日時
                            //   (暦時間(カレンダー時間)形式の作成日時)
     m_timeEdit: LongInt;   // 変更日時
                            //   (暦時間(カレンダー時間)形式の変更日時)
     m_strTitle: Pointer;   // 設定データタイトル (Charu3:名前)
     m_strData: Pointer;    // 設定データ文字列   (Charu3:テキスト編集のテキスト)
     m_strMacro: Pointer;   // 拡張用文字列データ (Charu3:拡張マクロ)
   end;
   PSTRING_DATA = ^TSTRING_DATA;
 // ---------------------------------------------------
 
 
 // [Delphi-ML:20584] Re: time_t -> TDateTime ?
 // を参考にしたtime_t -> TDateTimeの関数。
 // ---------------------------------------------------
 const
   cStart    = 25569.0;  // = EncodeDate( 1970, 1, 1 )
   cSecPerDay = 86400.0;  // 1日あたりの秒数
   cAdjust    = 9 / 24;  // 時間帯の調整
 
 function time_tToDateTime(t: LongInt): TDateTime;
 begin
   Result := (cStart * cSecPerDay + t) / cSecPerDay + cAdjust;
 end;
 
 function DateTimeTotime_t(d: TDateTime): LongInt;
 begin
   Result := Round((d - cStart - cAdjust) * cSecPerDay);
 end;
 // ---------------------------------------------------
 
 (*
 // Cの場合の関数宣言
 // Charu3DLL_SRC\Plugins\addBR\replace.cppのソース引用
 extern "C" __declspec (dllexport) bool CharuPlugIn
 	(TCHAR *strSource,TCHAR *strResult,int nSize,STRING_DATA *data,void *pVoid)
 *)
 
 (*
 // Charu3DLL_SRC\readme.htmlのマニュアル引用
 ■テキスト処理プラグイン
  簡単な関数を一つ実装すればテキスト処理プラグインを作ることが出来ます。
  TCHARはMBCSの時はcharになり、Unicodeの場合はwchar_tになります。
 
 bool CharuPlugIn(TCHAR *strSource,TCHAR *strResult,int nSize,STRING_DATA *data,void *pVoid);
 □TCHAR *strSource 
  処理の元になるテキストデータが入ってきます。$SELなどのマクロは置換されたあとです。
 
 □TCHAR *strResult
  結果のテキストを格納します。 
 
 □int nSize
  結果のテキストを格納するバッファのサイズです。最低で10kbあります。
  大きなテキストを扱う場合は、このバッファのサイズも大きく確保されます。
 
 □STRING_DATA *data
  選択していたデータの元です。
  拡張マクロやID、作成時間や変更時間などのデータも取れます。$SELなどのマクロも置換前の状態です。拡張マクロにオリジナルの機能を持たせたりすることも出来ます。
 
 □void *pVoid
  拡張用ポインタでしたが、現在は貼り付けのターゲットになるウィンドウのハンドルが
 入ってきます。使う場合はキャストして使ってください。
  将来変更される可能性もなきにしもあらずですけど。
 *)
 
 
 // [Delphi:89848] Re: VC++で作られたソフトのプラグインDLLの作成
 // を参考にして、関数の呼び出し規約をcdeclにしています
 
 // Delphiの場合、TCHARはMBCSの時はPCharになり、Unicodeの場合はPWideCharになる?
 
 // Charu3 S-JIS版
 function CharuPlugIn(
   strSource: PChar; strResult: PChar; nSize: integer;
   data: PSTRING_DATA; pVoid: Pointer): BOOL; cdecl;
 var
   WkStrSource: string;
   WkStrResult: string;
 
   Wkm_strTitle: string;
   Wkm_strData: string;
   WKm_strMacro: string;
 
   Wkm_cKind: Char;
   Wkm_cIcon: Char;
 
   Wkm_nMyID: Integer;
   Wkm_nParentID: Integer;
 
   Wkm_timeCreate2: TDateTime;
   Wkm_timeEdit2: TDateTime;
 
   WkpVoid: HWND;
 begin
   try
     // String型にコピーする
     WkStrSource := strSource;
 
     // data.m_cKindの保持
     Wkm_cKind := data.m_cKind;
     // data.m_cIconの保持
     Wkm_cIcon := data.m_cIcon;
 
     // data.m_nMyIDの保持
     Wkm_nMyID := data.m_nMyID;
     // data.m_nParentIDの保持
     Wkm_nParentID := data.m_nParentID;
 
     // data.m_timeCreateはCのtime_t型なのでTDateTime型に変換&コピー
     Wkm_timeCreate2 := time_tToDateTime(data.m_timeCreate);
     // data.m_timeEditはCのtime_t型なのでTDateTime型に変換&コピー
     Wkm_timeEdit2 := time_tToDateTime(data.m_timeEdit);
 
     // String型にコピーする
     Wkm_strTitle := PChar(data.m_strTitle);
     // String型にコピーする
     Wkm_strData := PChar(data.m_strData);
     // String型にコピーする
     Wkm_strMacro := PChar(data.m_strMacro);
 
     // pVoidをHWND型に変換する
     WkpVoid := HWND(pVoid^);
 
     //---------------ここからコードを書くといいです---------------------
 
     // strSourceがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('strSource [' + WkStrSource + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_cKindがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_cKind [' + IntToStr(Integer(Wkm_cKind)) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_cIconがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_cIcon [' + IntToStr(Integer(Wkm_cIcon)) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_nMyIDがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_nMyID [' + IntToStr(Wkm_nMyID) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_nParentIDがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_nParentID [' + IntToStr(Wkm_nParentID) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // TDateTime型に変換されたdata.m_timeCreateがきちんと受け取れているかのテストコード
     MessageBox(0, PChar(
       'data.m_timeCreate(TDateTime) [' + DateTimeToStr(Wkm_timeCreate2) + ']'),
       '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // TDateTime型に変換されたdata.m_timeEditがきちんと受け取れているかのテストコード
     MessageBox(0, PChar(
       'data.m_timeEdit(TDateTime) [' + DateTimeToStr(Wkm_timeEdit2) + ']'),
       '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_strTitleがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_strTitle [' + Wkm_strTitle + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_strDataがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_strData [' + Wkm_strData + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_strMacroがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_strMacro [' + Wkm_strMacro + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // pVoidがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('pVoid [' + IntToStr(WkpVoid) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // 受け取ったstrSourceの文字列を'<'で囲う加工をするテストコード
     WkStrResult := '<' +  WkStrSource + '>';
 
     // 加工後のWkStrResultを表示するテストコード
     MessageBox(0, PChar('strSource [' + WkStrResult + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     //---------------ここまでコードを書くといいです---------------------
 
     // 値は直接strResultに入れる
     StrLCopy(strResult, PChar(WkStrResult), nSize);
 
     result := True;
   except
     result := False;
     Exit;
   end;
 end;
 
 exports
   CharuPlugIn;
 
 end.

**Unicode版 [#ud3e427d]
 library CharuPlugInTestu;
 
 { DLL でのメモリ管理について:
   もしこの DLL が引数や返り値として String 型を使う関数/手続きをエクスポー
   トする場合、以下の USES 節とこの DLL を使うプロジェクトソースの USES 節
   の両方に、最初に現れるユニットとして ShareMem を指定しなければなりません。
   (プロジェクトソースはメニューから[プロジェクト|ソース表示] を選ぶこと
   で表示されます)
   これは構造体やクラスに埋め込まれている場合も含め String 型を DLL とやり
   取りする場合に必ず必要となります。
   ShareMem は共用メモリマネージャである BORLNDMM.DLL とのインターフェース
   です。あなたの DLL と一緒に配布する必要があります。BORLNDMM.DLL を使うの
   を避けるには、PChar または ShortString 型を使って文字列のやり取りをおこ
   なってください。}
 
 uses
   SysUtils,
   Classes,
   Windows,
   System,
   Messages,
   {以下 TntWare Delphi Unicode Controls フリー版ライブラリを使用}
   TntSystem,
   TntSysUtils,
   TntDialogs,
   TntWideStrUtils;
 
 {$R *.res}
 
 (*
 // Charu3DLL_SRC\Plugins\addBR\replace.cppのソース引用
 // Cの場合の構造体
 //---------------------------------------------------
 // データ構造体
 //---------------------------------------------------
 struct STRING_DATA
 {
 	char	m_cKind;		//データ種別
 	char	m_cIcon;		//アイコン種別
 	int		m_nMyID;		//データのID
 	int		m_nParentID;	//親データのID
 	time_t	m_timeCreate;	//作成日時
 	time_t	m_timeEdit;		//変更日時
 	CString  m_strTitle;	//設定データタイトル
 	CString  m_strData;		//設定データ文字列
 	CString  m_strMacro;	//拡張用文字列データ
 };
 *)
 
 // Delphiの場合の構造体
 // ---------------------------------------------------
 type
   TSTRING_DATA = record
     m_cKind: Char;         // データ種別         (Charu3:種類)
                            //   1:一時データ 2:ロック
     m_cIcon: Char;         // アイコン種別       (Charu3:アイコン)
                            //   0:普通ロック項目 1:日時 時間系 2:ファイル実行
                            //   3:関連付け実行 4:文字列選択 5:クリップボード
                            //   6:プラグイン 7:キー入力 255:自動選択
     m_nMyID: Integer;      // データのID         (何を示したIDなのか不明)
     m_nParentID: Integer;  // 親データのID       (何を示したIDなのか不明)
     m_timeCreate: LongInt; // 作成日時
                            //   (暦時間(カレンダー時間)形式の作成日時)
     m_timeEdit: LongInt;   // 変更日時
                            //   (暦時間(カレンダー時間)形式の変更日時)
     m_strTitle: Pointer;   // 設定データタイトル (Charu3:名前)
     m_strData: Pointer;    // 設定データ文字列   (Charu3:テキスト編集のテキスト)
     m_strMacro: Pointer;   // 拡張用文字列データ (Charu3:拡張マクロ)
   end;
   PSTRING_DATA = ^TSTRING_DATA;
 // ---------------------------------------------------
 
 
 // [Delphi-ML:20584] Re: time_t -> TDateTime ?
 // を参考にしたtime_t -> TDateTimeの関数。
 // ---------------------------------------------------
 const
   cStart    = 25569.0;  // = EncodeDate( 1970, 1, 1 )
   cSecPerDay = 86400.0;  // 1日あたりの秒数
   cAdjust    = 9 / 24;  // 時間帯の調整
 
 function time_tToDateTime(t: LongInt): TDateTime;
 begin
   Result := (cStart * cSecPerDay + t) / cSecPerDay + cAdjust;
 end;
 
 function DateTimeTotime_t(d: TDateTime): LongInt;
 begin
   Result := Round((d - cStart - cAdjust) * cSecPerDay);
 end;
 // ---------------------------------------------------
 
 (*
 // Cの場合の関数宣言
 // Charu3DLL_SRC\Plugins\addBR\replace.cppのソース引用
 extern "C" __declspec (dllexport) bool CharuPlugIn
 	(TCHAR *strSource,TCHAR *strResult,int nSize,STRING_DATA *data,void *pVoid)
 *)
 
 (*
 // Charu3DLL_SRC\readme.htmlのマニュアル引用
 ■テキスト処理プラグイン
  簡単な関数を一つ実装すればテキスト処理プラグインを作ることが出来ます。
  TCHARはMBCSの時はcharになり、Unicodeの場合はwchar_tになります。
 
 bool CharuPlugIn(TCHAR *strSource,TCHAR *strResult,int nSize,STRING_DATA *data,void *pVoid);
 □TCHAR *strSource 
  処理の元になるテキストデータが入ってきます。$SELなどのマクロは置換されたあとです。
 
 □TCHAR *strResult
  結果のテキストを格納します。 
 
 □int nSize
  結果のテキストを格納するバッファのサイズです。最低で10kbあります。
  大きなテキストを扱う場合は、このバッファのサイズも大きく確保されます。
 
 □STRING_DATA *data
  選択していたデータの元です。
  拡張マクロやID、作成時間や変更時間などのデータも取れます。$SELなどのマクロも置換前の状態です。拡張マクロにオリジナルの機能を持たせたりすることも出来ます。
 
 □void *pVoid
  拡張用ポインタでしたが、現在は貼り付けのターゲットになるウィンドウのハンドルが
 入ってきます。使う場合はキャストして使ってください。
  将来変更される可能性もなきにしもあらずですけど。
 *)
 
 
 // [Delphi:89848] Re: VC++で作られたソフトのプラグインDLLの作成
 // を参考にして、関数の呼び出し規約をcdeclにしています
 
 // Delphiの場合、TCHARはMBCSの時はPCharになり、Unicodeの場合はPWideCharになる?
 
 // Charu3 Unicode版
 function CharuPlugIn(
   strSource: PWideChar; strResult: PWideChar; nSize: integer;
   data: PSTRING_DATA; pVoid: Pointer): BOOL; cdecl;
 var
   WkStrSource: WideString;
   WkStrResult: WideString;
 
   Wkm_strTitle: WideString;
   Wkm_strData: WideString;
   WKm_strMacro: WideString;
 
   Wkm_cKind: Char;
   Wkm_cIcon: Char;
 
   Wkm_nMyID: Integer;
   Wkm_nParentID: Integer;
 
   Wkm_timeCreate2: TDateTime;
   Wkm_timeEdit2: TDateTime;
 
   WkpVoid: HWND;
 begin
   try
     // strSourceはUNICODEなのでWideString型にコピーする
     WkStrSource := strSource;
 
     // data.m_cKindの保持
     Wkm_cKind := data.m_cKind;
     // data.m_cIconの保持
     Wkm_cIcon := data.m_cIcon;
 
     // data.m_nMyIDの保持
     Wkm_nMyID := data.m_nMyID;
     // data.m_nParentIDの保持
     Wkm_nParentID := data.m_nParentID;
 
     // data.m_timeCreateはCのtime_t型なのでTDateTime型に変換&コピー
     Wkm_timeCreate2 := time_tToDateTime(data.m_timeCreate);
     // data.m_timeEditはCのtime_t型なのでTDateTime型に変換&コピー
     Wkm_timeEdit2 := time_tToDateTime(data.m_timeEdit);
 
     // data.m_strTitleはUNICODEなのでWideString型にコピーする
     Wkm_strTitle := PWideChar(data.m_strTitle);
     // data.m_strDataはUNICODEなのでWideString型にコピーする
     Wkm_strData := PWideChar(data.m_strData);
     // data.m_strMacroはUNICODEなのでWideString型にコピーする
     Wkm_strMacro := PWideChar(data.m_strMacro);
 
     // pVoidをHWND型に変換する
     WkpVoid := HWND(pVoid^);
 
     //---------------ここからコードを書くといいです---------------------
 
     // strSourceがきちんと受け取れているかのテストコード
     // UNICODEなのでMessageBoxW使用
     MessageBoxW(0, PWideChar('strSource [' + WkStrSource + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_cKindがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_cKind [' + IntToStr(Integer(Wkm_cKind)) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_cIconがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_cIcon [' + IntToStr(Integer(Wkm_cIcon)) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_nMyIDがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_nMyID [' + IntToStr(Wkm_nMyID) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_nParentIDがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('data.m_nParentID [' + IntToStr(Wkm_nParentID) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // TDateTime型に変換されたdata.m_timeCreateがきちんと受け取れているかのテストコード
     MessageBox(0, PChar(
       'data.m_timeCreate(TDateTime) [' + DateTimeToStr(Wkm_timeCreate2) + ']'),
       '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // TDateTime型に変換されたdata.m_timeEditがきちんと受け取れているかのテストコード
     MessageBox(0, PChar(
       'data.m_timeEdit(TDateTime) [' + DateTimeToStr(Wkm_timeEdit2) + ']'),
       '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // data.m_strTitleがきちんと受け取れているかのテストコード
     // UNICODEなのでMessageBoxW使用
     MessageBoxW(0, PWideChar('data.m_strTitle [' + Wkm_strTitle + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_strDataがきちんと受け取れているかのテストコード
     // UNICODEなのでMessageBoxW使用
     MessageBoxW(0, PWideChar('data.m_strData [' + Wkm_strData + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
     // data.m_strMacroがきちんと受け取れているかのテストコード
     // UNICODEなのでMessageBoxW使用
     MessageBoxW(0, PWideChar('data.m_strMacro [' + Wkm_strMacro + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // pVoidがきちんと受け取れているかのテストコード
     MessageBox(0, PChar('pVoid [' + IntToStr(WkpVoid) + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     // 受け取ったstrSourceの文字列を'<'で囲う加工をするテストコード
     WkStrResult := '<' +  WkStrSource + '>';
 
     // 加工後のWkStrResultを表示するテストコード
     // UNICODEなのでMessageBoxW使用
     MessageBoxW(0, PWideChar('strSource [' + WkStrResult + ']'), '情報',
       MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);
 
     //---------------ここまでコードを書くといいです---------------------
 
     // 値は直接strResultに入れる
     WStrLCopy(strResult, PWideChar(WkStrResult), nSize);
 
     result := True;
   except
     result := False;
     Exit;
   end;
 end;
 
 exports
   CharuPlugIn;
 
 end.
  

*コメント [#ofbd2d2f]
#Comment