AkelPad

Code: Select all

var hMainWnd = AkelPad.GetMainWnd();
var oSys = AkelPad.SystemFunction();
var hMainMenu = oSys.Call("user32::GetMenu", hMainWnd);

// constants
var WM_COMMAND = 273;
var MF_BYCOMMAND = 0x00;
var MF_UNCHECKED = 0x00;
var MF_CHECKED   = 0x08;
var IDM_FILE_TWICE    = 4255;
var IDM_PROGRAM_TWICE = 4256;

// uncheck menu item if checked
var nFileTwiceChanged = MenuItemState(IDM_FILE_TWICE);
// uncheck menu item if checked
var nProgramTwiceChanged = MenuItemState(IDM_PROGRAM_TWICE);

var pAkelDir = AkelPad.GetAkelDir();
var pEditFile = AkelPad.GetEditFile(0)
var WshShell = new ActiveXObject("WScript.shell");
// run new AkelPad.exe
WshShell.Run("\"" + pAkelDir + "\\AkelPad.exe\" \"" + pEditFile + "\"");
// wait for a second
oSys.Call("kernel32::Sleep", 1000);

// restore menu item's checked state
if ( nFileTwiceChanged )
{
  ChangeMenuItemState(IDM_FILE_TWICE);
}

// restore menu item's checked state
if ( nProgramTwiceChanged )
{
  ChangeMenuItemState(IDM_PROGRAM_TWICE);
}

function MenuItemState(id)
{
  var state = oSys.Call("user32::GetMenuState", hMainMenu, id, MF_BYCOMMAND);
  if ( state != -1 )
  {
    if ( state & MF_CHECKED )
    {
      ChangeMenuItemState(id);
      return 1;
    }
  }
  return 0;
}

function ChangeMenuItemState(id)
{
  AkelPad.SendMessage(hMainWnd, WM_COMMAND, id, 0);
}