Initial window position – Run from a toolbar button

[ssimop]

I do not know! This is the toolbar :

Function tempf4

Code:

Copy      Help

;/hook Note_TBRDM /mov0 1030 0 /siz0 350 265 /ssiz0 350 28 /set0 1|2|4|8|0x400 /col 0xC0FFFF /hcol 0xA0F8F8 /ini "C:\Documents and Settings\S.E.Simopoulos\Local Settings\Notes.ini"
:Note_Menu val(_command) * $user profile$\My Documents\Local Settings\sysman\Ico\SESGroup5.ICO
|
:QuickSearch * $user profile$\My Documents\Local Settings\sysman\Ico\search32.ico
:Search_for_Folder_InDir * $user profile$\My Documents\Local Settings\sysman\Ico\MyDocDir4.ico
:efs_StartStop * $user profile$\My Documents\Local Settings\sysman\Ico\search_exe_3.ico
:RecentModTimeSorted * $user profile$\My Documents\Local Settings\sysman\Ico\FolderRec.ICO
:SelectLastModifiedFolder(-2) * $user profile$\My Documents\Local Settings\sysman\Ico\qt_tab5.ICO
:SelectLastModifiedFolder(-12) * $user profile$\My Documents\Local Settings\sysman\Ico\alphai.ICO
:Browse_For_Folder * $user profile$\My Documents\Local Settings\sysman\Ico\FFConfig_exe_14.ico
|
:PSHF_Rectorship * $user profile$\My Documents\Local Settings\sysman\Ico\ntua_scan1.ICO
:PSHF_Rector * $user profile$\My Documents\Local Settings\sysman\Ico\Σεσ3.ICO
:run "$documents$\Local Settings\temp\OE Attachments" ""  "Explore"  ""  3|0x200 * $user profile$\My Documents\Local Settings\sysman\ICO\ahahaAt4.ico
:Task_Message_Shutdown * $user profile$\My Documents\Local Settings\sysman\Ico\AdjTB0.ICO
:MyNotesShrinkToggle * $user profile$\My Documents\Local Settings\sysman\Ico\pin.ico

and this is the function run :

Function Browse_For_Folder

Code:

Copy      Help

function [int'sw]

str si.getmacro(getopt(itemid) 1)
if ideb; out "%s : %s" NowT si

str sFolder
int iB=MyBrowseForFolder(sFolder "" PSHot "Select Output Directory")
;mes iB si
if(iB=0)
;,mes "MyBrowseForFolder Error" si "!"
,_s.format("%s : %s - Job Aborted" NowT si _s)
,Task_Message _s

,ret
;mes sFolder
if sw
,Save_in_Folder(sFolder)
else
,RestoreLastExplorer
,run sFolder "" "Explore" "" 3|0x200

where

Function MyBrowseForFolder

Code:

Copy      Help

;/
function# str&s [$sinitdir] [flags] [$text] ;;flags: 1 include files, 2 include non-file objects (Control Panel, etc), 4 new style

;080818 CallBack + Edit Window on flag 0

;Displays "Browse For Folder" dialog and stores full path of selected folder into s.
;Returns a nonzero value on OK, 0 on Cancel.

;flags may also include one or more of BIF_x flags (declared in WINAPI), lshifted by 8 bits. For example, to browse for computer, use 2|(0x1000<<8). For more info, search for SHBrowseForFolder in the MSDN Library.

;EXAMPLE
;str s
;if(BrowseForFolder(s "$windows$")) out s

;080813
;Η παρούσα έκδοση καλύπτει όλα τα προβλήματα inidir + PSHot=4 και
;συνεργάζεται με την Browse_Folder_in_Reg με ένα "έξυπνπο" call-back στο τέλος.
;Απαραίτητο στην PS Hot Folders - Configure - Applications να εξαιρείται η QM.


str si.getmacro(getopt(itemid) 1)
if ideb; out "%s : %s" NowT si
,
if(flags&2);flags=4
,
PSinitdir=sinitdir
PSHotF=""
MyBFF_Sema=0
;g1

BROWSEINFOW b
b.hwndOwner=win()
if(flags&1) b.ulFlags|BIF_BROWSEINCLUDEFILES
if(flags&2=0) b.ulFlags|BIF_RETURNONLYFSDIRS
if(flags&4) b.ulFlags|BIF_USENEWUI
b.ulFlags|flags>>8
b.lpszTitle=@text

if(flags&4)
,STRINT p.i=flags; p.s.searchpath(PSinitdir)
,b.lpfn=&BFF_Callback; b.lParam=&p
else
;080816
;Αν PSHot=0 προσθέτει ένα edit window
,b.ulFlags|BIF_EDITBOX
,if(len(PSinitdir)) b.pidlRoot=PidlFromStr(PSinitdir)

ITEMIDLIST* pidl=SHBrowseForFolderW(&b)

if(pidl) PidlToStr(pidl &s flags&2=0); CoTaskMemFree pidl; else s.all
if(b.pidlRoot) CoTaskMemFree b.pidlRoot
0

;Task_Message "Pause"
wait 120 -V MyBFF_Sema
err
,_s=_error.description
,out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si _s
,mac "Warning_QM" "si"
,end
;Task_Message "Resume"

MyBFF_Sema=0


if !empty(PSHotF)
,;out PSHotF
,PSinitdir=PSHotF
,PSHotF=""
,goto g1

ret s.len