Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
SHDOC right click on folder, catch path
#2
refer to this post does what you want already

http://www.quickmacros.com/forum/showthr...5#pid27705


adjusted for your posted code
Code:
Copy      Help
str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x1 0 0 242 168 "Dialog"
;3 ActiveX 0x54000000 0x0 5 7 114 141 "SHDocVw.WebBrowser"
;8 Edit 0x54030080 0x200 5 151 224 12 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2040601 "*" "" "" ""

str controls = "3 8"
str ax3SHD e8
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
out e8

#sub DlgProc
function# hDlg message wParam lParam
SHDocVw.WebBrowser we3
Shell32.ShellFolderView fv
Shell32.FolderItem fi
int- MhDlg
sel message
,case WM_INITDIALOG
,we3._getcontrol(id(3 hDlg))
,we3._setevents("sub.we3") 
,;initial folder
,we3.Navigate(_s.expandpath("$Documents$"))    
,MhDlg=hDlg
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

#sub we3_DocumentComplete
function IDispatch'pDisp `&URL SHDocVw.IWebBrowser2'we3
Shell32.ShellFolderView fv=we3.Document
fv._setevents("sub.fv")

#sub fv_SelectionChanged
function Shell32.IShellFolderViewDual3'fv
int- MhDlg
Shell32.FolderItem fi=fv.FocusedItem
str path=fi.Path
out path
path.setwintext(id(8 MhDlg))


Messages In This Thread
SHDOC right click on folder, catch path - by r0n - 11-09-2019, 09:45 AM
RE: SHDOC right click on folder, catch path - by Kevin - 11-10-2019, 05:31 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)