「SDIウィンドウの記憶と復帰」を編集中

== ■SDI愛好者の方へ ==
<strike>Mery Ver 2.0.0.3583 以降、SDIモード時にマクロで他の Document へアクセスすることができなくなりました。このため、</strike>SDI モードであれば一時的にタブ表示モード  へ変更しマクロ終了後に SDI モードに戻すひな形を作成しました。
ひな形なので投稿のマクロだけでは何も処理しません。実際に利用する場合は、Main 関数に必要なマクロを記述してください。

'''Mery 2.0.11.3997 で Editors プロパティが追加されたので、この ひな形の存在意義はなくなりました。SFC mini を利用した試行錯誤のサンプルとして見てやってください '''

ウィンドウの操作に WIN32API を利用しているため、『SFC mini』をインストールする必要があります。『SFC mini』についての情報は下記のサイトでご確認ください。
http://sfcmini.sourceforge.jp/help/catid-19.html

Vista 以降の OS をお使いの方は Vector で公開されている正式版 Ver 1.0.1 ではなく sourceforge にある 1.0.5 βをインストールしてください。
http://sourceforge.jp/projects/sfcmini/
作者の Katsumi さん blog にてVistaで起きるエラーの状況が書かれています。
http://kandk.cafe.coocan.jp/jeans/?itemid=627

<syntaxhighlight lang="javascript">
  (function(){
    //MEIDはVer2.0.10.3980時点 変わる可能性大
    var MEID_WINDOW_ENABLE_TABS = 4236;
    try {
      var SfcMiniTools = new ActiveXObject("SfcMini.Tools");
      var vcheck = (Number(SfcMiniTools.GetSfcVersion.toString(16)) < 1050);
      var EnumWindows = new ActiveXObject("SfcMini.DynaCall");
      var IsWindowVisible = new ActiveXObject("SfcMini.DynaCall");
      var IsIconic = new ActiveXObject("SfcMini.DynaCall");
      var ShowWindow = new ActiveXObject("SfcMini.DynaCall");
      var SetWindowPos = new ActiveXObject("SfcMini.DynaCall");
      //var MoveWindow = new ActiveXObject("SfcMini.DynaCall");
      var GetWindowText = new ActiveXObject("SfcMini.DynaCall");
      var GetWindowRect = new ActiveXObject("SfcMini.DynaCall");
      EnumWindows.Declare("user32", "EnumWindows");
      IsWindowVisible.Declare("user32", "IsWindowVisible");
      IsIconic.Declare("user32", "IsIconic");
      ShowWindow.Declare("user32", "ShowWindow");
      SetWindowPos.Declare("user32","SetWindowPos") ;
      //MoveWindow.Declare("user32", "MoveWindow");
      GetWindowText.Declare("user32", "GetWindowTextA");
      GetWindowRect.Declare("user32", "GetWindowRect");
      var SW_MINIMIZE = 6
      var SW_RESTORE = 9;
      //Windowsの位置を記憶
      var meryWindows = getMeryWindows();
    } catch(e) {
      //window.Status = "SFCminiが無いため、APIアクセスができません";
      var meryWindows = new Array;
    }
    redraw = false;
    var SDI = SDIToTab();
    Main();
    if(SDI)BackToSDI(meryWindows);
    redraw = true;
    Quit();
  
    function Main(){
  	//別Documentの操作が必要なマクロをここに書く
    }
  
    function SDIToTab(){
      //SDIモードかタブ表示モードかを調べる
      //editor.EnableTabプロパティは Ver.2.0.10.3980 で追加
      var flgSDI = !editor.EnableTab;
      //SDIモードの場合はタブ表示モードに変更
      if(flgSDI)editor.ExecuteCommandByID(MEID_WINDOW_ENABLE_TABS);
      return flgSDI;
    }
  
    function BackToSDI(meryWindows){
      //SDIに戻す
      editor.ExecuteCommandByID(MEID_WINDOW_ENABLE_TABS);
      //最後の Document が Active になる→WindowTextが変わる→復帰できない
      var flgSaved = (document.saved)?"":" *";
      var docname = (document.name)?document.name:"無題";
      new ActiveXObject('WScript.Shell').AppActivate(document.name + flgSaved + " - Mery");
  
      //位置変更後の hWnd 取得
      try{
        var meryWindowsAfter = getMeryWindows();
        for(var i = meryWindows.length; i > 0; i--){
          var win = meryWindows[i-1];
          for(j = 0; j < meryWindowsAfter.length; j++){
            var winAfter = meryWindowsAfter[j];
            if(winAfter.name == win.name){
              SetWindowPos(winAfter.hwnd, 0, win.left, win.top, win.width, win.height, 64);
              if(win.minimize){
                ShowWindow(winAfter.hwnd, SW_MINIMIZE);
              }
              winAfter.name += "再配置済み";
              break;
            }
          }
        }
      }catch(e){}
    }
  
    function getRect(hWnd){
      //RECT 構造体
      var lpRect = new ActiveXObject("SfcMini.Structure");
      lpRect("Left","Long","Top","Long","Right","Long","Bottom","Long");
      GetWindowRect(hWnd, lpRect);
      return lpRect;
    }
  
    function getMeryWindows(){
      var wName = new ActiveXObject("SfcMini.Structure");
      wName("str", "String*256");
      var mery = new Array;
      var EnumWindowsProc = new Object();
      EnumWindowsProc.CallBack = function CallBack(hWnd, lParam) {
        if (IsWindowVisible(hWnd)) {
          if (GetWindowText(hWnd, wName, 256)) {
            if(vcheck){//1.0.1
              var wName2 = wName.str.substring(0, wName.str.indexOf("\0", 0));
            }else{//1.0.5β
              var wName2 = wName.str.toString();
            }
            if(wName2.slice(-7) == " - Mery"){
              var win = new Object();
              win.name = wName2;
              win.hwnd = hWnd;
              win.minimize = IsIconic(hWnd);
              if(win.minimize){
                ShowWindow(hWnd, SW_RESTORE);
              }
              var rect = getRect(hWnd);
              win.left = rect.Left;
              win.top = rect.Top;
              win.width = rect.Right - rect.Left;
              win.height = rect.Bottom - rect.Top;
              mery.push(win);
            }
          }
        }
        return 1;
      }
      EnumWindows(EnumWindows.CallBack(EnumWindowsProc, 2), 0);
      return mery;
    }
  
  })();
</syntaxhighlight>