SASL Posted March 22, 2021 Posted March 22, 2021 Good Day, Is there a way to display FileSelectFolder transparently over other applications? Thanks
UEZ Posted March 24, 2021 Posted March 24, 2021 You have to use the WinAPI to create the FileSelectFolder funtion, hook to it and change the transparency of the GUI. Look here: Example1: #include "_FileDialogsEx.au3" Global Const $CBN_SELCHANGE = 1 $Output = _FileSaveDialogEx("", @MyDocumentsDir, "Text Files (*.txt)", BitOR($OFN_OVERWRITEPROMPT, $OFN_PATHMUSTEXIST, $OFN_DONTADDTORECENT), "", 0, "_FileSave_HookProc") Func _FileSave_HookProc($hWnd, $Msg, $wParam, $lParam) Switch $Msg Case $WM_INITDIALOG Local $hDlg = _WinAPI_GetParent($hWnd) _SendMessage($hDlg, $CDM_SETCONTROLTEXT, $IDOK, "Export", 0, "int", "wstr") _SendMessage($hDlg, $CDM_SETCONTROLTEXT, $IDCANCEL, "Not", 0, "int", "wstr") WinSetTrans($hDlg, "", 0x80) ;<------ change the transparency of the dialog window ControlCommand($hDlg, "", '[CLASS:ComboBox;Instance:3]', "AddString", 'ANSI') $aWinSize = WinGetPos($hDlg, "") WinMove($hDlg, "", @DesktopWidth / 2 - $aWinSize[2] / 2, @DesktopHeight / 2 - $aWinSize[3] / 2) WinSetTitle($hDlg,"","Export to") Case $WM_COMMAND Local $hComboEnc = ControlGetHandle($hWnd, "", '[CLASS:ComboBox;Instance:3]') Local $iCode = BitShift($wParam, 16) If $lParam = $hComboEnc And $iCode = $CBN_SELCHANGE Then $sEncoding = ControlCommand($hWnd, "", '[CLASS:ComboBox;Instance:3]', "GetCurrentSelection", "") EndIf ConsoleWrite($sEncoding & @crlf) EndSwitch EndFunc ;==>_FileSave_HookProc Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ
SASL Posted March 25, 2021 Author Posted March 25, 2021 Thanks for your suggestion. However , to start, I downloaded FileDialogsEx.au3 , changed @Unicode to @AutoitUnicode as mentionned, and ran it, but it tells me : Undefined Macro. So, what I have to do next, in order to run FileDialogsEx.au3 and after that, try your own code which includes FileDialogsEx.au3?
MrCreatoR Posted March 25, 2021 Posted March 25, 2021 Lazy method: _FileSelectFolder('Title', '', 0, @ScriptDir, 0, 200) Func _FileSelectFolder($sTitle, $sRoot, $iFlag = 0, $sInitDir = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileSelectFolder($sTitle, $sRoot, $iFlag, $sInitDir, $hWnd) EndFunc Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team
SASL Posted March 25, 2021 Author Posted March 25, 2021 Very NICE. Thanks a lot. Can I do the same for FileOpenDialog?
MrCreatoR Posted March 25, 2021 Posted March 25, 2021 Just now, SASL said: Can I do the same for FileOpenDialog? Sure... _FileOpenDialog('Title', @ScriptDir, 'All (*.*)', 0, '', 0, 200) Func _FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts = 0, $sDefName = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts, $sDefName, $hWnd) EndFunc Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team
UEZ Posted March 26, 2021 Posted March 26, 2021 17 hours ago, SASL said: Thanks for your suggestion. However , to start, I downloaded FileDialogsEx.au3 , changed @Unicode to @AutoitUnicode as mentionned, and ran it, but it tells me : Undefined Macro. So, what I have to do next, in order to run FileDialogsEx.au3 and after that, try your own code which includes FileDialogsEx.au3? Try this version of _FileDialogsEx.au3: expandcollapse popup#include-once #include <WindowsConstants.au3> #include <WinAPI.au3> ;= ; Customizable File Open/Save dialogs ; by Siao, updated to 3.3.6.1 by KaFu ;= #Region OFN Constants #cs Global Const $OFN_ALLOWMULTISELECT = 0x200 Global Const $OFN_CREATEPROMPT = 0x2000 Global Const $OFN_DONTADDTORECENT = 0x2000000 Global Const $OFN_ENABLEHOOK = 0x20 Global Const $OFN_ENABLEINCLUDENOTIFY = 0x400000 Global Const $OFN_ENABLESIZING = 0x800000 Global Const $OFN_ENABLETEMPLATE = 0x40 Global Const $OFN_ENABLETEMPLATEHANDLE = 0x80 Global Const $OFN_EXPLORER = 0x80000 Global Const $OFN_EXTENSIONDIFFERENT = 0x400 Global Const $OFN_EX_NOPLACESBAR = 0x1 Global Const $OFN_FILEMUSTEXIST = 0x1000 Global Const $OFN_FORCESHOWHIDDEN = 0x10000000 Global Const $OFN_HIDEREADONLY = 0x4 Global Const $OFN_LONGNAMES = 0x200000 Global Const $OFN_NOCHANGEDIR = 0x8 Global Const $OFN_NODEREFERENCELINKS = 0x100000 Global Const $OFN_NOLONGNAMES = 0x40000 Global Const $OFN_NONETWORKBUTTON = 0x20000 Global Const $OFN_NOREADONLYRETURN = 0x8000 Global Const $OFN_NOTESTFILECREATE = 0x10000 Global Const $OFN_NOVALIDATE = 0x100 Global Const $OFN_OVERWRITEPROMPT = 0x2 Global Const $OFN_PATHMUSTEXIST = 0x800 Global Const $OFN_READONLY = 0x1 Global Const $OFN_SHAREAWARE = 0x4000 Global Const $OFN_SHAREFALLTHROUGH = 2 Global Const $OFN_SHARENOWARN = 1 Global Const $OFN_SHAREWARN = 0 Global Const $OFN_SHOWHELP = 0x10 Global Const $OFN_USEMONIKERS = 0x1000000 Global Const $OFS_MAXPATHNAME = 128 #ce ;~ Global Const $CDM_FIRST = 1124 ;~ Global Const $CDM_GETFILEPATH = $CDM_FIRST + 0x1 ;~ Global Const $CDM_GETFOLDERIDLIST = $CDM_FIRST + 0x3 ;~ Global Const $CDM_GETFOLDERPATH = $CDM_FIRST + 0x2 ;~ Global Const $CDM_GETSPEC = $CDM_FIRST + 0x0 ;~ Global Const $CDM_HIDECONTROL = $CDM_FIRST + 0x5 ;~ Global Const $CDM_SETCONTROLTEXT = $CDM_FIRST + 0x4 ;~ Global Const $CDM_SETDEFEXT = $CDM_FIRST + 0x6 ;~ Global Const $CDM_LAST = 1224 ;~ Global Const $CDN_FIRST = -601 ;~ Global Const $CDN_INITDONE = $CDN_FIRST - 0x0 ;~ Global Const $CDN_INCLUDEITEM = $CDN_FIRST - 0x7 ;~ Global Const $CDN_FOLDERCHANGE = $CDN_FIRST - 0x2 ;~ Global Const $CDN_HELP = $CDN_FIRST - 0x4 ;~ Global Const $CDN_SELCHANGE = $CDN_FIRST - 0x1 ;~ Global Const $CDN_TYPECHANGE = $CDN_FIRST - 0x6 ;~ Global Const $CDN_SHAREVIOLATION = $CDN_FIRST - 0x3 ;~ Global Const $CDN_FILEOK = $CDN_FIRST - 0x5 ;~ Global Const $CDN_LAST = -699 ;;explorer style dialog control indentifiers Global Const $chx1 = 0x410 ;The read-only check box Global Const $cmb1 = 0x470 ;Drop-down combo box that displays the list of file type filters Global Const $stc2 = 0x441 ;Label for the cmb1 combo box Global Const $cmb2 = 0x471 ;Drop-down combo box that displays the current drive or folder, and that allows the user to select a drive or folder to open Global Const $stc4 = 0x443 ;Label for the cmb2 combo box Global Const $edt1 = 0x480;Edit control that displays the name of the current file, or allows the user to type the name of the file to open. Compare with cmb13. Global Const $stc3 = 0x442 ;Label for the cmb13 combo box and the edt1 edit control Global Const $lst1 = 0x460 ;List box that displays the contents of the current drive or folder Global Const $stc1 = 0x440 ;Label for the lst1 list box ;~ Global Const $IDOK = 1 ;The OK command button (push button) ;~ Global Const $IDCANCEL = 2 ;The Cancel command button (push button) Global Const $pshHelp = 0x040e ;The Help command button (push button) ;; reverse-engineered command codes for SHELLDLL_DefView (Paul DiLascia, MSDN Magazine — March 2004) Global Const $ODM_VIEW_ICONS = 0x7029 Global Const $ODM_VIEW_LIST = 0x702b Global Const $ODM_VIEW_DETAIL = 0x702c Global Const $ODM_VIEW_THUMBS = 0x702d Global Const $ODM_VIEW_TILES = 0x702e #EndRegion ;# ; _FileOpenDialogEx() ; Initiates a customizable Open File Dialog. ; Parameters: ; $sTitle - dialog title, see FileOpenDialog() ; $sInitDir - initial folder, see FileOpenDialog() ; $sFilter - file type filter, see FileOpenDialog() ; $iOptions - can be one or combination of the following: ; $OFN_FILEMUSTEXIST ; $OFN_PATHMUSTEXIST ; $OFN_ALLOWMULTISELECT ; $OFN_CREATEPROMPT ; $OFN_ENABLESIZING ; $OFN_DONTADDTORECENT ; $OFN_FORCESHOWHIDDEN ; $OFN_NONETWORKBUTTON ; $OFN_EX_NOPLACESBAR ; ; $sDefaultName - default filename, see FileOpenDialog() ; $hParent - handle of dialog's parent window (0 if none) ; $sHookName - name of user defined dialog hook procedure ("" if none). See examples. ; $hTemplate - handle to a file or memory object containing custom dialog template (0 if none). See examples. ; $sTemplateName - name of a dialog template resource in the module identified by the $hTemplate ("" if none or if $hTemplate is memory object handle). See examples. ; Return values: ; Success: string value of chosen filename(s), see FileOpenDialog() ; Failure: Sets @error to 1 ; Remarks: ; Using hook function you can customize dialog to greater extent - hide/show controls, change text of controls, and do other neat things. ; Hook function should have 4 params ($hWnd, $Msg, $wParam, $lParam) and works similar to GuiRegisterMsg() functions. For more information refer http://msdn2.microsoft.com/en-us/library/ms646960(VS.85).aspx ; Using custom templates you can add controls to a common dialog. To handle these custom controls, use hook function. ;# Func _FileOpenDialogEx($sTitle = "", $sInitDir = "", $sFilter = "All Files (*.*)", $iOptions = 0, $sDefaultName = "", $hParent=0, $sHookName="", $hTemplate=0, $sTemplateName="") Local $sRet = _GetOpenSaveFileName('GetOpenFileName', $sHookName, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) If @error Then SetError(@error) Return $sRet EndFunc ;# ; _FileSaveDialogEx() ; Initiates a customizable Save File Dialog. ; Parameters: ; $sTitle - dialog title, see FileSaveDialog() ; $sInitDir - initial folder, see FileSaveDialog() ; $sFilter - file type filter, see FileSaveDialog() ; $iOptions - can be one or combination of the following: ; $OFN_PATHMUSTEXIST ; $OFN_OVERWRITEPROMPT ; $OFN_ENABLESIZING ; $OFN_DONTADDTORECENT ; $OFN_FORCESHOWHIDDEN ; $OFN_NONETWORKBUTTON ; $OFN_EX_NOPLACESBAR ; ; $sDefaultName - default filename, see FileSaveDialog() ; $hParent - handle of dialog's parent window (0 if none) ; $sHookName - name of user defined dialog hook procedure ("" if none). See examples. ; $hTemplate - handle to a file or memory object containing custom dialog template (0 if none). See examples. ; $sTemplateName - name of a dialog template resource in the module identified by the $hTemplate ("" if none or if $hTemplate is memory object handle). See examples. ; Return values: ; Success: string value of chosen filename, see FileSaveDialog() ; Failure: Sets @error to 1 ; Remarks: ; Using hook function you can customize dialog to greater extent - hide/show controls, change text of controls, and do other neat things. ; Hook function should have 4 params ($hWnd, $Msg, $wParam, $lParam) and works similar to GuiRegisterMsg() functions. For more information refer http://msdn2.microsoft.com/en-us/library/ms646960(VS.85).aspx ; Using custom templates you can add controls to a common dialog. To handle these custom controls, use hook function. ;# Func _FileSaveDialogEx($sTitle = "", $sInitDir = "", $sFilter = "All Files (*.*)", $iOptions = 0, $sDefaultName = "", $hParent=0, $sHookName="", $hTemplate=0, $sTemplateName="") Local $sRet = _GetOpenSaveFileName('GetSaveFileName', $sHookName, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) If @error Then SetError(@error) Return $sRet EndFunc ;################################### ;# ; _GetOpenSaveFileName() ; Internal ;# Func _GetOpenSaveFileName($sFunction, $sHookProc, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) Local $taFilters, $tFile, $_OFN_HookProc = 0, $fUnicode = True, $iFlagsEx = 0, $iFlagsForced = BitOR($OFN_EXPLORER,$OFN_HIDEREADONLY,$OFN_NODEREFERENCELINKS) $iOptions = BitOR($iFlagsForced, $iOptions) If BitAND($iOptions, $OFN_EX_NOPLACESBAR) Then $iOptions = BitXOR($iOptions, $OFN_EX_NOPLACESBAR) $iFlagsEx = $OFN_EX_NOPLACESBAR EndIf Local $tagBuffer = "char[4096]", $iBufferSize = 4095 If $fUnicode Then $tagBuffer = "w" & $tagBuffer Local $aFilters = StringSplit($sFilter, "|"), $saFilters = "", $tagFilters = "", $aFiltSplit, $i For $i = 1 To $aFilters[0] $aFiltSplit = StringRegExp($aFilters[$i], "(?U)\A\h*(.+)\h*\((.*)\)", 1) $saFilters &= $aFilters[$i] & Chr(0) & $aFiltSplit[1] & Chr(0) Next $tagFilters = "char[" & StringLen($saFilters)+3 & "]" If $fUnicode Then $tagFilters = "w" & $tagFilters $taFilters = DllStructCreate($tagFilters) DllStructSetData($taFilters, 1, $saFilters) Local $tagFileBuffer = "char[32768]", $iFileBufferSize = 32767 If $fUnicode Then $tagFileBuffer = "w" & $tagFileBuffer $tFile = DllStructCreate($tagFileBuffer) ;Win2000/XP: should be 32k for ansi, unlimited for unicode If $sDefaultName <> "" Then DllStructSetData($tFile, 1, $sDefaultName) $tOFN = DllStructCreate('dword lStructSize;hwnd hwndOwner;hwnd hInstance;' & _ 'ptr lpstrFilter;ptr lpstrCustomFilter;dword nMaxCustFilter;dword nFilterIndex;' & _ 'ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;ptr lpstrInitialDir;ptr lpstrTitle;' & _ 'dword Flags;short nFileOffset;short nFileExtension;ptr lpstrDefExt;dword lCustData;ptr lpfnHook;ptr lpTemplateName;' & _ 'dword Reserved[2];dword FlagsEx') DllStructSetData($tOFN, 'lStructSize', DllStructGetSize($tOFN)) If IsHWnd($hParent) Then DllStructSetData($tOFN, 'hwndOwner', $hParent) DllStructSetData($tOFN, 'lpstrFilter', DllStructGetPtr($taFilters)) DllStructSetData($tOFN, 'nFilterIndex', 1) DllStructSetData($tOFN, 'lpstrFile', DllStructGetPtr($tFile)) DllStructSetData($tOFN, 'nMaxFile', $iFileBufferSize) DllStructSetData($tOFN, 'FlagsEx', $iFlagsEx) If $hTemplate <> 0 Then If $sTemplateName <> "" Then $iOptions = BitOr($iOptions, $OFN_ENABLETEMPLATE) DllStructSetData($tOFN, 'hInstance', $hTemplate) Local $tTemplateName = DllStructCreate($tagBuffer);'char[256]') DllStructSetData($tTemplateName, 1, $sTemplateName) DllStructSetData($tOFN, 'lpTemplateName', DllStructGetPtr($tTemplateName)) Else $iOptions = BitOr($iOptions, $OFN_ENABLETEMPLATEHANDLE) DllStructSetData($tOFN, 'hInstance', $hTemplate) EndIf EndIf If $sHookProc <> "" Then $iOptions = BitOr($iOptions, $OFN_ENABLEHOOK, $OFN_ENABLEINCLUDENOTIFY) $_OFN_HookProc = DllCallbackRegister($sHookProc, "int", "hwnd;uint;wparam;lparam") DllStructSetData($tOFN, 'lpfnHook', DllCallbackGetPtr($_OFN_HookProc)) EndIf If $sTitle <> "" Then Local $tTitle = DllStructCreate($tagBuffer) DllStructSetData($tTitle, 1, String($sTitle)) DllStructSetData($tOFN, "lpstrTitle", DllStructGetPtr($tTitle)) EndIf If $sInitDir <> "" Then Local $tInitDir = DllStructCreate($tagBuffer) DllStructSetData($tInitDir, 1, String($sInitDir)) DllStructSetData($tOFN, "lpstrInitialDir", DllStructGetPtr($tInitDir)) EndIf DllStructSetData($tOFN, 'Flags', $iOptions) If $fUnicode Then $sFunction &= 'W' Local $aRet = DllCall('comdlg32.dll','int',$sFunction, 'ptr',DllStructGetPtr($tOFN)), $iError = @error If $_OFN_HookProc <> 0 Then DllCallbackFree($_OFN_HookProc) If $iError Then Return SetError(2,$iError,"") ElseIf $aRet[0] Then Local $iChar = 1 While $iChar < $iFileBufferSize+1 If DllStructGetData($tFile, 1, $iChar) = "" Then If DllStructGetData($tFile, 1, $iChar+1) = "" Then ExitLoop DllStructSetData($tFile, 1, "|", $iChar) EndIf $iChar += 1 WEnd Return SetError(0,0,DllStructGetData($tFile, 1)) Else Return SetError(1,0,"") EndIf EndFunc Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ
SASL Posted March 28, 2021 Author Posted March 28, 2021 On 3/25/2021 at 7:36 PM, MrCreatoR said: Sure... _FileOpenDialog('Title', @ScriptDir, 'All (*.*)', 0, '', 0, 200) Func _FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts = 0, $sDefName = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts, $sDefName, $hWnd) EndFunc Good Day, It is working perfectly. Thanks a lot. I also tried it on explorer.exe but I think I wrote a bad code, because it didnt work: _ShellExecute("C:\WINDOWS\EXPLORER.EXE",@ScriptDir,"","",@SW_MAXIMIZE) Func _ShellExecute("C:\WINDOWS\EXPLORER.EXE",@ScriptDir ,"","",@SW_MAXIMIZE) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return ShellExecute("C:\WINDOWS\EXPLORER.EXE",@ScriptDir ,"","",@SW_MAXIMIZE) EndFunc What do U think?
SASL Posted March 28, 2021 Author Posted March 28, 2021 On 3/26/2021 at 11:30 AM, UEZ said: Try this version of _FileDialogsEx.au3: expandcollapse popup#include-once #include <WindowsConstants.au3> #include <WinAPI.au3> ;= ; Customizable File Open/Save dialogs ; by Siao, updated to 3.3.6.1 by KaFu ;= #Region OFN Constants #cs Global Const $OFN_ALLOWMULTISELECT = 0x200 Global Const $OFN_CREATEPROMPT = 0x2000 Global Const $OFN_DONTADDTORECENT = 0x2000000 Global Const $OFN_ENABLEHOOK = 0x20 Global Const $OFN_ENABLEINCLUDENOTIFY = 0x400000 Global Const $OFN_ENABLESIZING = 0x800000 Global Const $OFN_ENABLETEMPLATE = 0x40 Global Const $OFN_ENABLETEMPLATEHANDLE = 0x80 Global Const $OFN_EXPLORER = 0x80000 Global Const $OFN_EXTENSIONDIFFERENT = 0x400 Global Const $OFN_EX_NOPLACESBAR = 0x1 Global Const $OFN_FILEMUSTEXIST = 0x1000 Global Const $OFN_FORCESHOWHIDDEN = 0x10000000 Global Const $OFN_HIDEREADONLY = 0x4 Global Const $OFN_LONGNAMES = 0x200000 Global Const $OFN_NOCHANGEDIR = 0x8 Global Const $OFN_NODEREFERENCELINKS = 0x100000 Global Const $OFN_NOLONGNAMES = 0x40000 Global Const $OFN_NONETWORKBUTTON = 0x20000 Global Const $OFN_NOREADONLYRETURN = 0x8000 Global Const $OFN_NOTESTFILECREATE = 0x10000 Global Const $OFN_NOVALIDATE = 0x100 Global Const $OFN_OVERWRITEPROMPT = 0x2 Global Const $OFN_PATHMUSTEXIST = 0x800 Global Const $OFN_READONLY = 0x1 Global Const $OFN_SHAREAWARE = 0x4000 Global Const $OFN_SHAREFALLTHROUGH = 2 Global Const $OFN_SHARENOWARN = 1 Global Const $OFN_SHAREWARN = 0 Global Const $OFN_SHOWHELP = 0x10 Global Const $OFN_USEMONIKERS = 0x1000000 Global Const $OFS_MAXPATHNAME = 128 #ce ;~ Global Const $CDM_FIRST = 1124 ;~ Global Const $CDM_GETFILEPATH = $CDM_FIRST + 0x1 ;~ Global Const $CDM_GETFOLDERIDLIST = $CDM_FIRST + 0x3 ;~ Global Const $CDM_GETFOLDERPATH = $CDM_FIRST + 0x2 ;~ Global Const $CDM_GETSPEC = $CDM_FIRST + 0x0 ;~ Global Const $CDM_HIDECONTROL = $CDM_FIRST + 0x5 ;~ Global Const $CDM_SETCONTROLTEXT = $CDM_FIRST + 0x4 ;~ Global Const $CDM_SETDEFEXT = $CDM_FIRST + 0x6 ;~ Global Const $CDM_LAST = 1224 ;~ Global Const $CDN_FIRST = -601 ;~ Global Const $CDN_INITDONE = $CDN_FIRST - 0x0 ;~ Global Const $CDN_INCLUDEITEM = $CDN_FIRST - 0x7 ;~ Global Const $CDN_FOLDERCHANGE = $CDN_FIRST - 0x2 ;~ Global Const $CDN_HELP = $CDN_FIRST - 0x4 ;~ Global Const $CDN_SELCHANGE = $CDN_FIRST - 0x1 ;~ Global Const $CDN_TYPECHANGE = $CDN_FIRST - 0x6 ;~ Global Const $CDN_SHAREVIOLATION = $CDN_FIRST - 0x3 ;~ Global Const $CDN_FILEOK = $CDN_FIRST - 0x5 ;~ Global Const $CDN_LAST = -699 ;;explorer style dialog control indentifiers Global Const $chx1 = 0x410 ;The read-only check box Global Const $cmb1 = 0x470 ;Drop-down combo box that displays the list of file type filters Global Const $stc2 = 0x441 ;Label for the cmb1 combo box Global Const $cmb2 = 0x471 ;Drop-down combo box that displays the current drive or folder, and that allows the user to select a drive or folder to open Global Const $stc4 = 0x443 ;Label for the cmb2 combo box Global Const $edt1 = 0x480;Edit control that displays the name of the current file, or allows the user to type the name of the file to open. Compare with cmb13. Global Const $stc3 = 0x442 ;Label for the cmb13 combo box and the edt1 edit control Global Const $lst1 = 0x460 ;List box that displays the contents of the current drive or folder Global Const $stc1 = 0x440 ;Label for the lst1 list box ;~ Global Const $IDOK = 1 ;The OK command button (push button) ;~ Global Const $IDCANCEL = 2 ;The Cancel command button (push button) Global Const $pshHelp = 0x040e ;The Help command button (push button) ;; reverse-engineered command codes for SHELLDLL_DefView (Paul DiLascia, MSDN Magazine — March 2004) Global Const $ODM_VIEW_ICONS = 0x7029 Global Const $ODM_VIEW_LIST = 0x702b Global Const $ODM_VIEW_DETAIL = 0x702c Global Const $ODM_VIEW_THUMBS = 0x702d Global Const $ODM_VIEW_TILES = 0x702e #EndRegion ;# ; _FileOpenDialogEx() ; Initiates a customizable Open File Dialog. ; Parameters: ; $sTitle - dialog title, see FileOpenDialog() ; $sInitDir - initial folder, see FileOpenDialog() ; $sFilter - file type filter, see FileOpenDialog() ; $iOptions - can be one or combination of the following: ; $OFN_FILEMUSTEXIST ; $OFN_PATHMUSTEXIST ; $OFN_ALLOWMULTISELECT ; $OFN_CREATEPROMPT ; $OFN_ENABLESIZING ; $OFN_DONTADDTORECENT ; $OFN_FORCESHOWHIDDEN ; $OFN_NONETWORKBUTTON ; $OFN_EX_NOPLACESBAR ; ; $sDefaultName - default filename, see FileOpenDialog() ; $hParent - handle of dialog's parent window (0 if none) ; $sHookName - name of user defined dialog hook procedure ("" if none). See examples. ; $hTemplate - handle to a file or memory object containing custom dialog template (0 if none). See examples. ; $sTemplateName - name of a dialog template resource in the module identified by the $hTemplate ("" if none or if $hTemplate is memory object handle). See examples. ; Return values: ; Success: string value of chosen filename(s), see FileOpenDialog() ; Failure: Sets @error to 1 ; Remarks: ; Using hook function you can customize dialog to greater extent - hide/show controls, change text of controls, and do other neat things. ; Hook function should have 4 params ($hWnd, $Msg, $wParam, $lParam) and works similar to GuiRegisterMsg() functions. For more information refer http://msdn2.microsoft.com/en-us/library/ms646960(VS.85).aspx ; Using custom templates you can add controls to a common dialog. To handle these custom controls, use hook function. ;# Func _FileOpenDialogEx($sTitle = "", $sInitDir = "", $sFilter = "All Files (*.*)", $iOptions = 0, $sDefaultName = "", $hParent=0, $sHookName="", $hTemplate=0, $sTemplateName="") Local $sRet = _GetOpenSaveFileName('GetOpenFileName', $sHookName, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) If @error Then SetError(@error) Return $sRet EndFunc ;# ; _FileSaveDialogEx() ; Initiates a customizable Save File Dialog. ; Parameters: ; $sTitle - dialog title, see FileSaveDialog() ; $sInitDir - initial folder, see FileSaveDialog() ; $sFilter - file type filter, see FileSaveDialog() ; $iOptions - can be one or combination of the following: ; $OFN_PATHMUSTEXIST ; $OFN_OVERWRITEPROMPT ; $OFN_ENABLESIZING ; $OFN_DONTADDTORECENT ; $OFN_FORCESHOWHIDDEN ; $OFN_NONETWORKBUTTON ; $OFN_EX_NOPLACESBAR ; ; $sDefaultName - default filename, see FileSaveDialog() ; $hParent - handle of dialog's parent window (0 if none) ; $sHookName - name of user defined dialog hook procedure ("" if none). See examples. ; $hTemplate - handle to a file or memory object containing custom dialog template (0 if none). See examples. ; $sTemplateName - name of a dialog template resource in the module identified by the $hTemplate ("" if none or if $hTemplate is memory object handle). See examples. ; Return values: ; Success: string value of chosen filename, see FileSaveDialog() ; Failure: Sets @error to 1 ; Remarks: ; Using hook function you can customize dialog to greater extent - hide/show controls, change text of controls, and do other neat things. ; Hook function should have 4 params ($hWnd, $Msg, $wParam, $lParam) and works similar to GuiRegisterMsg() functions. For more information refer http://msdn2.microsoft.com/en-us/library/ms646960(VS.85).aspx ; Using custom templates you can add controls to a common dialog. To handle these custom controls, use hook function. ;# Func _FileSaveDialogEx($sTitle = "", $sInitDir = "", $sFilter = "All Files (*.*)", $iOptions = 0, $sDefaultName = "", $hParent=0, $sHookName="", $hTemplate=0, $sTemplateName="") Local $sRet = _GetOpenSaveFileName('GetSaveFileName', $sHookName, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) If @error Then SetError(@error) Return $sRet EndFunc ;################################### ;# ; _GetOpenSaveFileName() ; Internal ;# Func _GetOpenSaveFileName($sFunction, $sHookProc, $hTemplate, $sTemplateName, $hParent, $sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName) Local $taFilters, $tFile, $_OFN_HookProc = 0, $fUnicode = True, $iFlagsEx = 0, $iFlagsForced = BitOR($OFN_EXPLORER,$OFN_HIDEREADONLY,$OFN_NODEREFERENCELINKS) $iOptions = BitOR($iFlagsForced, $iOptions) If BitAND($iOptions, $OFN_EX_NOPLACESBAR) Then $iOptions = BitXOR($iOptions, $OFN_EX_NOPLACESBAR) $iFlagsEx = $OFN_EX_NOPLACESBAR EndIf Local $tagBuffer = "char[4096]", $iBufferSize = 4095 If $fUnicode Then $tagBuffer = "w" & $tagBuffer Local $aFilters = StringSplit($sFilter, "|"), $saFilters = "", $tagFilters = "", $aFiltSplit, $i For $i = 1 To $aFilters[0] $aFiltSplit = StringRegExp($aFilters[$i], "(?U)\A\h*(.+)\h*\((.*)\)", 1) $saFilters &= $aFilters[$i] & Chr(0) & $aFiltSplit[1] & Chr(0) Next $tagFilters = "char[" & StringLen($saFilters)+3 & "]" If $fUnicode Then $tagFilters = "w" & $tagFilters $taFilters = DllStructCreate($tagFilters) DllStructSetData($taFilters, 1, $saFilters) Local $tagFileBuffer = "char[32768]", $iFileBufferSize = 32767 If $fUnicode Then $tagFileBuffer = "w" & $tagFileBuffer $tFile = DllStructCreate($tagFileBuffer) ;Win2000/XP: should be 32k for ansi, unlimited for unicode If $sDefaultName <> "" Then DllStructSetData($tFile, 1, $sDefaultName) $tOFN = DllStructCreate('dword lStructSize;hwnd hwndOwner;hwnd hInstance;' & _ 'ptr lpstrFilter;ptr lpstrCustomFilter;dword nMaxCustFilter;dword nFilterIndex;' & _ 'ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;ptr lpstrInitialDir;ptr lpstrTitle;' & _ 'dword Flags;short nFileOffset;short nFileExtension;ptr lpstrDefExt;dword lCustData;ptr lpfnHook;ptr lpTemplateName;' & _ 'dword Reserved[2];dword FlagsEx') DllStructSetData($tOFN, 'lStructSize', DllStructGetSize($tOFN)) If IsHWnd($hParent) Then DllStructSetData($tOFN, 'hwndOwner', $hParent) DllStructSetData($tOFN, 'lpstrFilter', DllStructGetPtr($taFilters)) DllStructSetData($tOFN, 'nFilterIndex', 1) DllStructSetData($tOFN, 'lpstrFile', DllStructGetPtr($tFile)) DllStructSetData($tOFN, 'nMaxFile', $iFileBufferSize) DllStructSetData($tOFN, 'FlagsEx', $iFlagsEx) If $hTemplate <> 0 Then If $sTemplateName <> "" Then $iOptions = BitOr($iOptions, $OFN_ENABLETEMPLATE) DllStructSetData($tOFN, 'hInstance', $hTemplate) Local $tTemplateName = DllStructCreate($tagBuffer);'char[256]') DllStructSetData($tTemplateName, 1, $sTemplateName) DllStructSetData($tOFN, 'lpTemplateName', DllStructGetPtr($tTemplateName)) Else $iOptions = BitOr($iOptions, $OFN_ENABLETEMPLATEHANDLE) DllStructSetData($tOFN, 'hInstance', $hTemplate) EndIf EndIf If $sHookProc <> "" Then $iOptions = BitOr($iOptions, $OFN_ENABLEHOOK, $OFN_ENABLEINCLUDENOTIFY) $_OFN_HookProc = DllCallbackRegister($sHookProc, "int", "hwnd;uint;wparam;lparam") DllStructSetData($tOFN, 'lpfnHook', DllCallbackGetPtr($_OFN_HookProc)) EndIf If $sTitle <> "" Then Local $tTitle = DllStructCreate($tagBuffer) DllStructSetData($tTitle, 1, String($sTitle)) DllStructSetData($tOFN, "lpstrTitle", DllStructGetPtr($tTitle)) EndIf If $sInitDir <> "" Then Local $tInitDir = DllStructCreate($tagBuffer) DllStructSetData($tInitDir, 1, String($sInitDir)) DllStructSetData($tOFN, "lpstrInitialDir", DllStructGetPtr($tInitDir)) EndIf DllStructSetData($tOFN, 'Flags', $iOptions) If $fUnicode Then $sFunction &= 'W' Local $aRet = DllCall('comdlg32.dll','int',$sFunction, 'ptr',DllStructGetPtr($tOFN)), $iError = @error If $_OFN_HookProc <> 0 Then DllCallbackFree($_OFN_HookProc) If $iError Then Return SetError(2,$iError,"") ElseIf $aRet[0] Then Local $iChar = 1 While $iChar < $iFileBufferSize+1 If DllStructGetData($tFile, 1, $iChar) = "" Then If DllStructGetData($tFile, 1, $iChar+1) = "" Then ExitLoop DllStructSetData($tFile, 1, "|", $iChar) EndIf $iChar += 1 WEnd Return SetError(0,0,DllStructGetData($tFile, 1)) Else Return SetError(1,0,"") EndIf EndFunc Hi, This is also fantastic, I will take my time to analyze it. Thanks a lot.
SASL Posted April 3, 2021 Author Posted April 3, 2021 On 3/25/2021 at 7:36 PM, MrCreatoR said: Sure... _FileOpenDialog('Title', @ScriptDir, 'All (*.*)', 0, '', 0, 200) Func _FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts = 0, $sDefName = '', $hWnd = 0, $iTrans = 255) Local $sSrc = _ "$_ = Opt('WinWaitDelay', 0) + WinSetTrans(WinWait('[CLASS:#32770;TITLE:" & $sTitle & "]', 'ShellView', 3), '', " & $iTrans & ")" Run(@AutoItExe & ' /AutoIt3ExecuteLine "' & $sSrc & '"', '', @SW_HIDE) Return FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOpts, $sDefName, $hWnd) EndFunc Hi, What do U think of my code for Explorer.exe?
MrCreatoR Posted April 5, 2021 Posted April 5, 2021 On 3/28/2021 at 8:43 AM, SASL said: I also tried it on explorer.exe but I think I wrote a bad code, because it didnt work: You trying to open explorer and make it transparent? This one a little bit more complicated, you need to wait for the window with the specified path, and check for new window, something like this... _Explorer_Open(@ScriptDir, 100) Func _Explorer_Open($sPath, $iTrans, $iState = @SW_MAXIMIZE) Local $iOld_WWD, $aWinList_Old, $aWinList_New $iOld_WWD = Opt('WinWaitDelay', 0) $aWinList_Old = WinList('[CLASS:CabinetWClass]') ShellExecute('EXPLORER.EXE', $sPath, '', '', $iState) WinWait('[CLASS:CabinetWClass;REGEXPTITLE:.*?' & StringRegExpReplace($sPath, '^.*\\', '') & ']') $aWinList_New = WinList('[CLASS:CabinetWClass]') For $i = 1 To UBound($aWinList_New) - 1 For $j = 1 To UBound($aWinList_Old) - 1 If $aWinList_New[$i][1] = $aWinList_Old[$j][1] Then ContinueLoop 2 EndIf Next WinSetTrans($aWinList_New[$i][0], '', $iTrans) ExitLoop Next Opt('WinWaitDelay', $iOld_WWD) EndFunc Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team
SASL Posted April 7, 2021 Author Posted April 7, 2021 On 4/5/2021 at 11:44 PM, MrCreatoR said: You trying to open explorer and make it transparent? This one a little bit more complicated, you need to wait for the window with the specified path, and check for new window, something like this... _Explorer_Open(@ScriptDir, 100) Func _Explorer_Open($sPath, $iTrans, $iState = @SW_MAXIMIZE) Local $iOld_WWD, $aWinList_Old, $aWinList_New $iOld_WWD = Opt('WinWaitDelay', 0) $aWinList_Old = WinList('[CLASS:CabinetWClass]') ShellExecute('EXPLORER.EXE', $sPath, '', '', $iState) WinWait('[CLASS:CabinetWClass;REGEXPTITLE:.*?' & StringRegExpReplace($sPath, '^.*\\', '') & ']') $aWinList_New = WinList('[CLASS:CabinetWClass]') For $i = 1 To UBound($aWinList_New) - 1 For $j = 1 To UBound($aWinList_Old) - 1 If $aWinList_New[$i][1] = $aWinList_Old[$j][1] Then ContinueLoop 2 EndIf Next WinSetTrans($aWinList_New[$i][0], '', $iTrans) ExitLoop Next Opt('WinWaitDelay', $iOld_WWD) EndFunc Thanks a lot. I will try it
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now