返信

> 返信ありがとうございます。 > > 試行錯誤していますが、先に進みませんのでアドバイスをお願いします。 > > プラグインの「OnCommand(hwnd: HWND)」で以下を実行していますが > //タブの状態を取得 > //ファイル名を取得 > //ステータスバーを取得 > の部分が、どうしても実現できません。 > 動作するコードを教えてもらう事は可能でしょうか？ > > よろしくお願いします。 > > procedure OnCommand(hwnd: HWND); stdcall; > var > sFileName: String; > sStatus: String; > bTabStatus: Boolean; > wRet1: Word; > begin > //親のハンドルを設定 > Application.Handle := hwnd; > > //タブの状態を取得 > //function Editor_Info(hwnd: THandle; nCmd: WPARAM; lParam: LPARAM): LRESULT; > // MI_IS_WINDOW_COMBINED: タブの有効・無効を取得します > //bTabStatus に、タブの状態を取得したい > > > //ファイル名を取得 > //function Editor_Info(hwnd: THandle; nCmd: WPARAM; lParam: LPARAM): LRESULT; > // MI_GET_FILE_NAME: 開いているファイル名を取得します > //sFileName に、ファイル名を取得したい > > > //ステータスバーを取得 > //function Editor_GetStatus(hwnd: THandle; szStatus: PChar; nBufferSize: Cardinal): Cardinal; > //sStatus に、ステータスバーの文字列を取得したい > > > //確認 > wRet1 := MessageDlg(sFileName + #13#10 + sStatus, mtInformation, [mbYes, mbNo ], 0); > //Yes > if wRet1 = mrYes then > begin > //「ウィンドウ」「タブを有効」 > //チェックされていない場合：終了する > //チェックされている場合 ：次のタブが自動的に作成され、終了にはならない > //保存と終了 > Editor_ExecCommand(hwnd, MEID_FILE_SAVE_CLOSE); > end > //No > else > begin > //何もしない > end; > end;

マークダウンを有効にする