how to add user options for xyplorer script?

[kotlmg]

thanks for your kind script. my modified code as per your direction is as follows.

Code: Select all

"_Variable"
 Global $Winmount;
 $Winmount = "C:\Program Files\WinMount\WinMount.exe"

"Mount to"
    Load "*", "_Variable";
    Global $Winmount;
    $AllDrive = C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z;
    $UsedDrives = replace(get("drives"), ":\") . |;
    $Position = 0;
    $Drive = C;
    While($Drive != ""){
    $Drive = substr($UsedDrives,$Position,2);
    $AllDrive = replace($AllDrive,$Drive);
    $Position = $Position + 2;
    };

    If( strpos("iso|bin|nrg|daa|cdi|cue|ccd|mds|mdf|img|isz|zip|rar", "<curext>") == -1 ) {Status "Not image file", ,"stop"; end 1};
    Else
    {
     $drive = inputselect("Currently selected item:<crlf><curitem>", $AllDrive,,2,,650,450, "Select drive letter for new Virtual Drive");
     end(strlen($drive) > 1), "Please select only one check box, script ends.";
     OpenWith """$Winmount"" -m <items> -drv:$drive:";
     wait(2000); // wait 2 seconds
     tab("new", $drive:);
    }



"QuickMount"
    Load "*", "_Variable";
    Global $Winmount;
   // $app = "C:\Program Files\WinMount\WinMount.exe";
    $AllDrive = C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z ;
    $CurrentDrives = replace(get("drives"), ":\") . |;
    $Position = 0;
    $Drive = C;
    While($Drive != ""){
    $Drive = substr($CurrentDrives,$Position,2);
    $AllDrive = replace($AllDrive,$Drive);
    $Position = $Position + 2;
    };

    If( strpos("iso|bin|nrg|daa|cdi|cue|ccd|mds|mdf|img|isz|zip|rar", "<curext>") == -1 ) {Status "Not image file", ,"stop"; end 1};
    Else
    {
     $drive = inputselect("Currently selected item:<crlf><curitem>", $AllDrive,,2,,650,450, "Select drive letter for new Virtual Drive");
     end(strlen($drive) > 1), "Please select only one check box, script ends.";
     //OpenWith """C:\Program Files\WinMount\WinMount.exe"" -m <items> -drv:$drive:";
     //OpenWith """C:\Program Files\WinMount\WinMount.exe"" -M <items> -drv:$drive:";
     OpenWith """$Winmount"" -M <items> -drv:$drive:";
       wait(2000); // wait 2 seconds
      tab("new", $drive:);
      }



"Play with KMPlayer"
    Load "*", "_Variable";
    Global $Winmount;
    $app = "C:\Program Files\WinMount\WinMount.exe";
    $AllDrive = C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z ;
    $CurrentDrives = replace(get("drives"), ":\") . |;
    $Position = 0;
    $Drive = C;
    While($Drive != ""){
    $Drive = substr($CurrentDrives,$Position,2);
    $AllDrive = replace($AllDrive,$Drive);
    $Position = $Position + 2;
    };

    If( strpos("iso|bin|nrg|daa|cdi|zip|rar", "<curext>") == -1 ) {Status "Not image file", ,"stop"; end 1};
    Else
    {
     $drive = inputselect("Currently selected item:<crlf><curitem>", $AllDrive,,2,,650,450, "Select drive letter for new Virtual Drive");
     end(strlen($drive) > 1), "Please select only one check box, script ends.";
     OpenWith """C:\Program Files\WinMount\WinMount.exe"" -m <items> -drv:$drive:";
       wait(2000); // wait 2 seconds
    //tab([operation], [data], [index])
      tab("new", $drive:);
    //OpenWith """C:\Program Files (x86)\The KMPlayer\KMPlayer1.exe""$drive:";
      OpenWith  """$Winmount""$drive:";
"Un mount which drive"
   Load "*", "_Variable";
    Global $Winmount;
   // $app = "C:\Program Files\WinMount\WinMount.exe";
        //unmount <drive|all>: Unmount image file.
    //Example: unmount drive F: .
    //Command: piso unmount F:
     $drive = inputselect("Unmount which drive?", Z|Y|W|V|U|T|S|R|Q|P|O|N|M|L|K|J|I|H|G,,2,,650,250, "XYplorer piso");
     end(strlen($drive) > 1), "Please select only one check box, script ends.";

   //run
      
      run  """$Winmount"" -unmount:$drive:";
   
"Un mount all"
   Load "*", "_Variable";
    Global $Winmount;
    //$app = "C:\Program Files\WinMount\WinMount.exe";
    run  """$Winmount"" -unmountall";

"Compress"
  Load "*", "_Variable";
    Global $Winmount;
	$char= chr(34);
   $items = $char.get ("SelectedItemsPathNames", "$char $char").$char;
   OpenWith  """$Winmount""-C$items";


"Decompress"

    Load "*", "_Variable";
    Global $Winmount;
  	//Get items names as "item1" "item2" etc
   $char= chr(34);
   $items = $char.get ("SelectedItemsPathNames", "$char $char").$char;
	$destination = inputfolder( ,select destination folder to move to);
// run """$app"" -E<items> -o:$destination";
   OpenWith  """$Winmount""-E$items -o:$destination:";

// winmount -E [compressed file list] "-s:target folder"

"Smart Extraction"
   Load "*", "_Variable";
    Global $Winmount;
  	//Get items names as "item1" "item2" etc
   $char= chr(34);
   $items = $char.get ("SelectedItemsPathNames", "$char $char").$char;
	$destination = inputfolder( ,select destination folder to move to);
// winmount -E [compressed file list] "-s:target folder"
   OpenWith  """$Winmount""-E$items -s:$destination:";

"Convert"
  Load "*", "_Variable";
    Global $Winmount;
  	//Get items names as "item1" "item2" etc
   $char= chr(34);
   $items = $char.get ("SelectedItemsPathNames", "$char $char").$char; 
// winmount -T [item1] 
   OpenWith  """$Winmount""-T$items";