Script pour editeur PSPad

// Lancement d'un programme en langage panoramic
// Auteur : Nardo26
// Constantes :
module_name = "ScriptPanoramic";
module_ver = "1.0";
menu_name = "Panoramic";

function Init()
{
  addMenuItem("Run",menu_name,"RunPano","SHIFT+F9");
  addMenuItem("Open script file",menu_name,"openScript");
}
// Lancement du programme
function RunPano()
{
  var Source = newEditor();
  try
  {
    // On déclare la source comme étant la fenêtre en cours d'édition
    Source.assignActiveEditor();
  }
  catch(e)
  {
    echo("erreur pas de fenêtre ouverte !")
    return;
  }
  // on récupère son contenu puis on le stocke dans le presse-papier :
  setClipboardText(Source.Text()+" :REM test");
  var loader=modulePath()+"..\\Loader.exe"
  // puis on lance le petit utilitaire réalisé par cosmos70
  new ActiveXObject("Shell.Application").ShellExecute(loader);
}

// Ouverture du script dans l'éditeur
function openScript()
{
  var obj1 = newEditor();
  obj1.openFile(moduleFileName(module_name));
}