> http://tech.groups.yahoo.com/group/power-pro/message/30491
Hi.. brucexs, PP users.. I upload a file explain my question. as a SWF file .. http://tech.groups.yahoo.com/group/power- pro/files/0_TEMP_/Ppro_Folder.zip in that files.. 3 method.. I have used 1st method, But, I want to use 2nd Method - Sean's scripts.. because of only PPro, more quick, simple... But, Sean's scripts work only exec.browseRun-window.... Regards.. kottami, 1. with dirkey.exe file.. dirkey.exe is freeware in http://www.protonfx.com/dirkey/ ------------ bar_OpenSaveDialog_.powerpro ---------- local check = win.childhandlelist("active", "c=RichEdit20W") ;;If office?? If( check !="") Do ;;RichEdit local ClipBackup = clip.get Wait.for(50) clip.setpaste(arg(1)) win.keys("{enter}") Wait.for(100) clip.set(ClipBackup) quit endif local a=reg.set_string(?"HKEY_CURRENT_USER\Software\Dirkey\Dirkey2 \Bookmarks\0\Path",arg(1)) if(anywindow("=dirkey")==1) ;; dirkey win.close("=dirkey") Wait.for(anywindow("=dirkey")==0) do(?"C:\Program Files\powerpro\scripts\Dirkey2\dirkey.exe") ;;run dirkey Wait.for(anywindow("=dirkey")) Win.Keys("^0") Wait.for(200) local e cap If (event.exists(e)!=1) do cap=win.caption("active") e=event.create(30,0,"If (activewindow(\"&(cap)\") == 0) do\r win.close(\"=dirkey\")\r event.destroythis\r endif") endif quit ------------------------- 2. With Sean's scripts in http://tech.groups.yahoo.com/group/power-pro/message/30491 ---------------------------------- If anyone got bored, try the following one. It'll work only with PP's FileDialog's because of the thread problem. After saving the script as FileDialog.PowerPro, execute the following as a script in PP's note. event.createms(20,1,"exec.browserun") wait.until(3000,anywindow "FileDialog") .FileDialog(pprofolder) ------------------- FileDialog.PowerPro ------------------------------ Function FileDialog(sPath) local psb,pidl,hRes,xPath dll.call("MultiByteToWideChar|ui ui s+ i s520 i";;+ ,0,0,"sPath",-1,"xPath",260) dll.call("shell32|SHParseDisplayName|s+ ui ui* ui ui";;+ ,"xPath",0,"pidl",0,0) // WM_GETISHELLBROWSER psb=win.handle("FileDialog,&,=PowerPro").SendMessage(0x407) if(psb)do hRes=dll.call(dll.dereference(dll.dereference(psb)+4*11);;+ ++"|ui ui ui",psb,pidl,0) endif ------------------------------ Sean ------------------------------------------------------- 3. with younth's Scripts (in our PPro cafe) ------------- bar_OpenSaveDialog.powerpro ----------- local ClipBackup = clip.get win.keys("{to *}%n") wait.for(100) local FileName = win.gettext(win.getfocus()) wait.for(100) clip.setpaste(arg(1)) win.keys("{en}{w1}{right}") if (length(FileName) != 0) do clip.setpaste(FileName) wait.for(100) else win.keys("{enter}") endif clip.set(ClipBackup) Quit ------------------------------------
