XYplorer Beta Club

Code: Select all

/*

Title: 7-ZipXY
Summary: The most useful right-click options of 7-Zip, portablized for use in XY
Author: WirlyWirly
URL: https://www.xyplorer.com/xyfc/viewtopic.php?f=7&t=24580

1 tab per submenu
DISPLAY|DATA (return value)|ICON|STATE

*/

$SEVENZIP = "C:\Program Files\7-Zip\7zG.exe";

    $menu = <<<MENU

Extract to "*\"|$selected_items = ''; foreach($file, "<selitems ::>", "::") { $selected_items = lax($selected_items -ai!"$file") }; run lax("$SEVENZIP" x -o".\*\" "-spe" "-an" $selected_items)|
Extract here|$selected_items = ''; foreach($file, "<selitems ::>", "::") { $selected_items = lax($selected_items -ai!"$file") }; run lax("$SEVENZIP" x -o".\" "-an" $selected_items)|
-
Extract to "*\" in other pane|$selected_items = ''; foreach($file, "<selitems ::>", "::") { $selected_items = lax($selected_items -ai!"$file") }; run lax("$SEVENZIP" x -o"<path i>" "-spe" "-an" $selected_items)|
Extract to other pane|$selected_items = ''; foreach($file, "<selitems ::>", "::") { $selected_items = lax($selected_items -ai!"$file") }; run lax("$SEVENZIP" x -o"<path i>" "-an" $selected_items)|
-
Add to archive...|$selected_items = ''; foreach($file, "<selitems ::>", "::") { $selected_items = lax($selected_items -i!"$file") }; run lax("$SEVENZIP" a $selected_items -ad -saa -- "<curitempath>\<curbase>")|

MENU;

    // Get X/Y position of a control
    //$position = controlposition('TAB 1', 0);
    //$x_pos = gettoken($position, 1, '|');
    //$y_pos = gettoken($position, 2, '|');

    // Display the context menu
    //$command = popupnested($menu, $x_pos, $y_pos,,,,,|);
    $command = popupnested($menu,,,,,,,|);

    // Run the selected command or skip if it uses an id #
    if ($command && !regexmatches($command, '^\#\d+$')) { load $command,, s; }
    //if ($command) { load $command,, s; }