07-24-2018, 01:41 AM
try this
Function Function66
Function Function66
str ft ft2
;find Windows Explorer window
int hwnd=win("" "ExploreWClass")
if(!hwnd) hwnd=win("" "CabinetWClass")
if(!hwnd) end "folder window not found"
;Get ShellBrowserWindow interface by enumerating shell windows
SHDocVw.ShellWindows sw._create
SHDocVw.ShellBrowserWindow b
foreach(b sw)
,int hwnd2=b.HWND; err continue
,if(hwnd=hwnd2) goto g1
ret
;g1
;get shell folder view document
Shell32.ShellFolderView sfw=b.Document
Shell32.FolderItem fi
;enumerate selected items
int i
foreach fi sfw.SelectedItems
,if i=0
,,ft2=fi.Path
,,ft+ft2
,else
,,ft2=fi.Path
,,ft + ","
,,ft+ft2
,i + 1
;out ft
str check.format("C:\7-Zip\7zg.exe a C:\Users\123\Downloads\test.7z %s" ft)
;out check
;out F"C:\7-Zip\7zg.exe a C:\Users\123\Downloads\test.7z {ft}"
;possible ways to run uncomment to test(to uncomment right click on the line number)
;RunConsole2 check
;RunConsole2 F"C:\7-Zip\7zg.exe a C:\Users\123\Downloads\test.7z {ft}"
;RunConsole2 "C:\7-Zip\7zg.exe a C:\Users\123\Downloads\test.7z ft"