XYplorer Beta Club

Code: Select all

writefile("%tmp%\xytmp","ATTENTION<crlf 3>Make sure that all the files and folders that you want to process are selected in the list.<crlf 3>Click OK when your selection is complete."); run notepad "%tmp%\xytmp";

   msg "next command";
   text "another command";
   sel 4;

Code: Select all

"Main"
  // This is the main entry point that is run by default.


  // You can do some checking here to skip the dialog if you want...
  // For instance:
  if (Get('CountSelected') < 2) {
    // Show the dialog if the user has less than 2 items already selected.
    Sub '_ShowNonModalDialog';

    // It's important to end after showing the dialog since we don't want the
    // script to be running while the user interacts with XY.
    // The dialog will kick off the script again when the user finishes.
    End true;
  } else {
    Sub '_Continue';
  }


"_Continue"
  // This is the script that gets called after the dialog is closed.
  Text Get('SelectedItemsPathNames'), /*width*/, /*height*/, 'You selected the following items:';


"_ShowNonModalDialog"
  // This is the script which shows our non-modal dialog.

  // This doesn't necessarily have to be a script file, but it is far
  // easier to demo the concept when it is.
  $scriptFile = Self('file');
  End $scriptFile == '', 'This script must be saved and executed from a file.';


  // ===== DIALOG OPTIONS =====
  // Title of the "dialog".
  $title = 'XYplorer Script';

  // One-line message to display.
  // If you're ambitious you can make it show many lines, the contents of a
  // file, or even ASCII art if you wanted... but I'm lazy. ;)
  $msg = 'Make your selection in XYplorer now.';

  /* Change the colors of the dialog using the following:
  **   0 = Black       8 = Gray
  **   1 = Blue        9 = Light Blue
  **   2 = Green       A = Light Green
  **   3 = Aqua        B = Light Aqua
  **   4 = Red         C = Light Red
  **   5 = Purple      D = Light Purple
  **   6 = Yellow      E = Light Yellow
  **   7 = White       F = Bright White
  **
  **   This helps make it not look like a command prompt.
  */
  $backgroundClr = 'F';
  $foregroundClr = '0';

  // Script to run when the user dismisses the dialog.
  // This needs to be a short one-liner and cannot contain double-quotes (").
  // It is passed as a command line switch to XY, so follow the rules here:
  // ::help('idh_commandlineswitches.htm');
  $script = <<<SCRIPT
::Load '$scriptFile', '_Continue', 'f';
SCRIPT;
  // For this demo there is really no need to call the '_Continue' label, since
  // Main will do so if the selection is valid. Thus we could replace this with
  // just the path to the script file, but this way demos that it can really
  // call any script, even an entirely different one, after the user responds to
  // the dialog.



  // ===== DIALOG OPTIONS - END =====

  // There should some option validation here but, again, I'm lazy.
  // Since we're building this fragile command below nothing can contain
  // multiple lines, '&&', double-quotes ("), etc.

  /* Build the "dialog" "script"...
  **   Here's the breakdown of the command...
  **     "cmd.exe"                            = Run what follows in a command prompt.
  **     /K                                   = Keep the prompt open.
  **     @color $backgroundClr$foregroundClr  = Set the prompt's colors.
  **     &&                                   = And then...
  **     @echo $msg                           = Display our message
  **     &&                                   = And then...
  **     @title $title                        = Set the title (Oddly if done earlier the pause overrides it!?)
  **     &&                                   = And then...
  **     @pause                               = Pause until the user presses the any key.
  **     &&                                   = And then...
  **     @start "Notifying XY..." /B          = Start a process without creating a new window.
  **     "<xy>" /hwnd=<hwnd>                  = That process is the same instance of XY that is running this script.
  **     /flg=2                               = XY arg: Leave the tab locations alone.
  **     /script="$script";                   = XY arg: The script to execute.
  **     &&                                   = And then...
  **     @exit                                = Close the command prompt.
  **
  ** The @s prevent the command prompt from showing the commands.
  */
  $cmd = <<<CMD
"cmd.exe" /K @color $backgroundClr$foregroundClr && @echo $msg && @title $title && @pause && @start "Notifying XY..." /B "<xy>" /hwnd=<hwnd> /flg=2 /script="$script" && @exit
CMD;

  // Show the dialog by running the command - don't wait just continue.
  run $cmd,, 0, 1;

Code: Select all

    $vbsFile = "%TEMP%\wait.vbs";
    $vbsContent = <<<>>>
MsgBox "Make sure that all the files and folders that you want to process are selected in the list. Click OK when your selection is complete.", vbInformation+vbSystemModal
>>>;

    writefile($vbsFile, $vbsContent);
    run """wscript"" ""$vbsFile""", , 2, 0;
    delete 0, 0, $vbsFile;
    text "end";