TVExplorer UDF

lsakizada · March 19, 2011

Yashied,

I have asked in post #28 a questions that I thought I found an answer for it, but indeed I did not.

It was about how to detach a TV root iem and recreating it by using the following code:

My code was simply like this;

GUICtrlTreeView_Delete($hTV,  0)
GUICtrlTVExplorer_AttachFolder ( $hTV , $sPath)

When I delete the tree view item and attach new path to it its works and I do not see any error

until I exit the main application.

Once I close the main application I get crash or error such as: "!>12:13:42 AutoIT3.exe ended.rc:-1073741819"

Or " autoit3.exe - Application error , the instruction at 0x7c911980 referenced memory at 0x00000000. The memory could not be "read".

I have destroy the control on exit (either by _GUICtrlTVExplorer_Destroy() and _GUICtrlTVExplorer_DestroyAll())

and try almost anything to avoid the error but nothing help.

My code create once the control (_GUICtrlTVExplorer_Create) during the life time of the process

but dynamicly load the TV control with different path (I am using combobox filled with different path items)

.

I know could be many reasons to crash the application on exits but after investigating the issue many hours I have got to conclusion that the deleted root cause it.

Is there anything to do to detach the control without destroying it?

by the way, I noticed that the crash usually happens when expanding the TV items manually. If not expanding them then there is no crash. I am realy frustrated here...

Yashied · March 19, 2011

You should not use GUICtrlTreeView_Delete().

#Include <ComboConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <TVExplorer.au3>
#Include <WindowsConstants.au3>

GUICreate('MyGUI', 400, 431)
$Combo = GUICtrlCreateCombo(@WorkingDir, 10, 10, 380, 21, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, @UserProfileDir & '|' & @ProgramFilesDir & '|' & @WindowsDir, @WorkingDir)
$hTV = _GUICtrlTVExplorer_Create(@WorkingDir, 10, 41, 380, 380, -1, $WS_EX_CLIENTEDGE)
GUISetState()

While 1
    Switch _GUICtrlTVExplorer_GetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Combo
            _GUICtrlTVExplorer_AttachFolder($hTV, GUICtrlRead($Combo))
    EndSwitch
WEnd

lsakizada · March 19, 2011

You should not use GUICtrlTreeView_Delete().

#Include <ComboConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <TVExplorer.au3>
#Include <WindowsConstants.au3>

GUICreate('MyGUI', 400, 431)
$Combo = GUICtrlCreateCombo(@WorkingDir, 10, 10, 380, 21, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, @UserProfileDir & '|' & @ProgramFilesDir & '|' & @WindowsDir, @WorkingDir)
$hTV = _GUICtrlTVExplorer_Create(@WorkingDir, 10, 41, 380, 380, -1, $WS_EX_CLIENTEDGE)
GUISetState()

While 1
    Switch _GUICtrlTVExplorer_GetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Combo
            _GUICtrlTVExplorer_AttachFolder($hTV, GUICtrlRead($Combo))
    EndSwitch
WEnd

Hi Yashid,

The TVExplorer control is beautiful one. I found the error. it was not about deleting items or attaching folder.

I found that the onexit function that I am using in my script was called twice, so probably its caused memory deallocation

problem. Strangly it was happend only after expanding the tree's node items.

Regards.

BTW: For those who wants example with multiple GUI (Father/Chiled) here is a one:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TVExplorer.au3>
#Include <ComboConstants.au3>
Global $hForm, $hTV[3], $Input[3], $hFocus = 0, $Dummy, $Path, $Style, $oFILE 
$Father = GUICreate("Form1", 380, 193, 193, 115)
$Button1 = GUICtrlCreateButton("Button1", 16, 40, 75, 25, 0)
GUISetState(@SW_SHOW)
Global $Child, $Button2 ,$Combo
_CreateChiled()

While 1
    $nMsg = _GUICtrlTVExplorer_GetMsg(1)
    Switch $nMsg[1]
        Case $Father
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    _GUICtrlTVExplorer_DestroyAll()
                    Exit
                Case $Button1
                    GUISetState(@SW_SHOW, $Child)
            EndSwitch
        Case $Child
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUISetState(@SW_HIDE, $Child)
                Case $Dummy
                    $Path = _GUICtrlTVExplorer_GetSelected($hFocus)
                    _GUICtrlTVExplorer_AttachFolder($hFocus)
                    _GUICtrlTVExplorer_Expand($hFocus, $Path, 0)
                    $hFocus = 0
                 Case $Combo
                        _ReCreateTVControl($hTV, GUICtrlRead($Combo))
            EndSwitch
    EndSwitch
WEnd
Func _ReCreateTVControl(ByRef $hTV, $Path)
    _GUICtrlTVExplorer_AttachFolder($hTV[0], $Path)
EndFunc   ;==>_ReCreateTVControl

Func _CreateChiled()
    $Child = GUICreate("Edit File System", 400, 400, 0, 0, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_MDICHILD), $Father)
    $Input[0] = GUICtrlCreateInput('', 20, 20, 320, 19)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $hTV[0] = _GUICtrlTVExplorer_Create(@ProgramFilesDir, 20, 48, 320, 210, -1, $WS_EX_CLIENTEDGE, -1, '_TVEvent')
    GUICtrlSetBkColor(-1, 0xF1F4F7)
    $Combo = GUICtrlCreateCombo(@WorkingDir, 10, 270, 380, 21, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, @UserProfileDir & '|' & @ProgramFilesDir & '|' & @WindowsDir, @WorkingDir)
    $Dummy = GUICtrlCreateDummy()
    GUISetState(@SW_HIDE, $Child)
EndFunc   ;==>_CreateChiled

Func _TVEvent($hWnd, $iMsg, $sPath, $hItem)
    consolewrite("$hWnd=" & $hWnd & ", " & "$iMsg=" & "," & "$sPath=" & $sPath & ", " & "$hItem=" & $hItem & @CRLF)
    Switch $iMsg
        Case $TV_NOTIFY_BEGINUPDATE
            GUISetCursor(1, 1)
        Case $TV_NOTIFY_ENDUPDATE
            GUISetCursor(2)
        Case $TV_NOTIFY_SELCHANGED
                If $hTV[0] = $hWnd Then
                    _TVSetPath($Input[0], $sPath)
                EndIf
        Case $TV_NOTIFY_DBLCLK
            ; Nothing
        Case $TV_NOTIFY_RCLICK
            ; Nothing
        Case $TV_NOTIFY_DELETINGITEM
            ; Nothing
        Case $TV_NOTIFY_DISKMOUNTED
            ; Nothing
        Case $TV_NOTIFY_DISKUNMOUNTED
            ; Nothing
    EndSwitch
EndFunc   ;==>_TVEvent

Func _TVSetPath($iInput, $sPath)
    Local $Text = _WinAPI_PathCompactPath(GUICtrlGetHandle($iInput), $sPath, -2)
    If GUICtrlRead($iInput) <> $Text Then
        GUICtrlSetData($iInput, $Text)
    EndIf
EndFunc   ;==>_TVSetPath

Yashied · May 13, 2011

UDF has been updated. Now works in x64.

Edited May 13, 2011 by Yashied

wakillon · November 1, 2011

Nice work !

I had to add #Include <APIConstants.au3> for get it working.

Edited November 1, 2011 by wakillon

WhiteStar · March 30, 2012

Hi Yashied

Melba aimed me @ TVExplorer so I immediately downloaded & tested but there seems to be a small issue which might be an easy fix.

Firstly, I did add " #include APIConstants.au3" to the example as noted above by Wakillon.

The TVExplorer.au3 is in my User Includes which is correctly configed and everything is as up to date as possible.

They are only warnings and the example does continue to operate but figured you should know.

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "E:AutoIT_ScriptsTVExplorerTVExplorer_Ex.au3" /UserParams   
+>13:13:52 Starting AutoIt3Wrapper v.2.1.0.8    Environment(Language:0409  Keyboard:00000409  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0)  from:C:Program Files (x86)AutoIt3
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(833,66) : WARNING: $SEM_FAILCRITICALERRORS: possibly used before declaration.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(833,91) : WARNING: $SEM_NOOPENFILEERRORBOX: possibly used before declaration.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS, $SEM_NOOPENFILEERRORBOX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(945,39) : WARNING: $SHGFI_SMALLICON: possibly used before declaration.
Local $Flags = BitOR($SHGFI_SMALLICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(945,60) : WARNING: $SHGFI_SYSICONINDEX: possibly used before declaration.
Local $Flags = BitOR($SHGFI_SMALLICON, $SHGFI_SYSICONINDEX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(949,33) : WARNING: $SHGFI_OPENICON: possibly used before declaration.
  $Flags = BitOR($SHGFI_OPENICON,
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(994,61) : WARNING: $SHGFI_ICON: possibly used before declaration.
   $hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON,
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(994,82) : WARNING: $SHGFI_OVERLAYINDEX: possibly used before declaration.
   $hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX,
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(994,108) : WARNING: $SHGFI_USEFILEATTRIBUTES: possibly used before declaration.
   $hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX, $SHGFI_USEFILEATTRIBUTES,
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1082,40) : WARNING: $SSF_SHOWALLOBJECTS: possibly used before declaration.
Local $Param[3] = [$SSF_SHOWALLOBJECTS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1082,64) : WARNING: $SSF_SHOWEXTENSIONS: possibly used before declaration.
Local $Param[3] = [$SSF_SHOWALLOBJECTS, 0, $SSF_SHOWEXTENSIONS]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1362,28) : WARNING: $SIID_DOCNOASSOC: possibly used before declaration.
  $ID[0] = $SIID_DOCNOASSOC
  ~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1363,24) : WARNING: $SIID_FOLDER: possibly used before declaration.
  $ID[1] = $SIID_FOLDER
  ~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1364,28) : WARNING: $SIID_FOLDEROPEN: possibly used before declaration.
  $ID[2] = $SIID_FOLDEROPEN
  ~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1366,69) : WARNING: $SHGSI_ICON: possibly used before declaration.
   $tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON,
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1366,87) : WARNING: $SHGSI_SMALLICON: possibly used before declaration.
   $tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON, $SHGSI_SMALLICON)
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1404,28) : WARNING: $SIID_DRIVEFIXED: possibly used before declaration.
  $ID[0] = $SIID_DRIVEFIXED
  ~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1405,29) : WARNING: $SIID_DRIVEREMOVE: possibly used before declaration.
  $ID[1] = $SIID_DRIVEREMOVE
  ~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1406,26) : WARNING: $SIID_DRIVERAM: possibly used before declaration.
  $ID[2] = $SIID_DRIVERAM
  ~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1407,25) : WARNING: $SIID_DRIVECD: possibly used before declaration.
  $ID[3] = $SIID_DRIVECD
  ~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsUSER_INCLUDETVExplorer.au3(1408,26) : WARNING: $SIID_DRIVENET: possibly used before declaration.
  $ID[4] = $SIID_DRIVENET
  ~~~~~~~~~~~~~~~~~~~~~~~^
E:AutoIT_ScriptsTVExplorerTVExplorer_Ex.au3 - 0 error(s), 20 warning(s)

Thanks to ALL THE CONTRIBUTORS

Such a community ! Love it !!

WhiteStar

guinness · March 30, 2012

Search WinAPIEx.au3 by Yashied and there you'll find APIConstants.au3.

WhiteStar · March 30, 2012

Hi Guiness

I had the TVExplorer_Ex.au3 set this way:

#Include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
#Include <GUITreeView.au3>
#Include <TVExplorer.au3>
#Include <TreeViewConstants.au3>
#Include <WindowsConstants.au3>
#Include <APIConstants.au3>

Thanks to your quick tip and a quick glance @ WinAPIEx, I relocated the #Include <APIConstants.au3> above #Include <WinAPIEx.au3> it works without error messages.

I have the latest WinAPIEx.au3 (which changes so often I feel like I need to update almost weekly LOL) but there is no Include in it for APIConstants.au3, maybe it was omitted during the last update or two, I don't know.

Thanks

WhiteStar

guinness · March 30, 2012

APIConstants.au3 is separate to keep the size of WinAPIEx.au3 down (or so I've understood it). Sometimes I've used functions from WinAPIEx but haven't needed to include APIConstants.au3, though these are rare occasions.

4wd · July 7, 2012

Hi all, I've just downloaded and updated TVExplorer and WinAPIEx but when I run the example I get the following warnings/errors, almost the same as WhiteStar, (he only got warnings), did above.

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /prod /AU3Check /in "D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3"
+>21:38:19 Starting AutoIt3Wrapper v.2.1.0.33 Environment(Language:0409 Keyboard:00000409 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0) from:C:\Program Files (x86)\AutoIt3
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(833,66) : WARNING: $SEM_FAILCRITICALERRORS: possibly used before declaration.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(833,91) : WARNING: $SEM_NOOPENFILEERRORBOX: possibly used before declaration.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS, $SEM_NOOPENFILEERRORBOX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(945,39) : WARNING: $SHGFI_SMALLICON: possibly used before declaration.
Local $Flags = BitOR($SHGFI_SMALLICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(945,60) : WARNING: $SHGFI_SYSICONINDEX: possibly used before declaration.
Local $Flags = BitOR($SHGFI_SMALLICON, $SHGFI_SYSICONINDEX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(949,33) : WARNING: $SHGFI_OPENICON: possibly used before declaration.
$Flags = BitOR($SHGFI_OPENICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,61) : WARNING: $SHGFI_ICON: possibly used before declaration.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,82) : WARNING: $SHGFI_OVERLAYINDEX: possibly used before declaration.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,108) : WARNING: $SHGFI_USEFILEATTRIBUTES: possibly used before declaration.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX, $SHGFI_USEFILEATTRIBUTES,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1082,40) : WARNING: $SSF_SHOWALLOBJECTS: possibly used before declaration.
Local $Param[3] = [$SSF_SHOWALLOBJECTS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1082,64) : WARNING: $SSF_SHOWEXTENSIONS: possibly used before declaration.
Local $Param[3] = [$SSF_SHOWALLOBJECTS, 0, $SSF_SHOWEXTENSIONS]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1362,28) : WARNING: $SIID_DOCNOASSOC: possibly used before declaration.
$ID[0] = $SIID_DOCNOASSOC
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1363,24) : WARNING: $SIID_FOLDER: possibly used before declaration.
$ID[1] = $SIID_FOLDER
~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1364,28) : WARNING: $SIID_FOLDEROPEN: possibly used before declaration.
$ID[2] = $SIID_FOLDEROPEN
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1366,69) : WARNING: $SHGSI_ICON: possibly used before declaration.
$tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1366,87) : WARNING: $SHGSI_SMALLICON: possibly used before declaration.
$tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON, $SHGSI_SMALLICON)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1404,28) : WARNING: $SIID_DRIVEFIXED: possibly used before declaration.
$ID[0] = $SIID_DRIVEFIXED
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1405,29) : WARNING: $SIID_DRIVEREMOVE: possibly used before declaration.
$ID[1] = $SIID_DRIVEREMOVE
~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1406,26) : WARNING: $SIID_DRIVERAM: possibly used before declaration.
$ID[2] = $SIID_DRIVERAM
~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1407,25) : WARNING: $SIID_DRIVECD: possibly used before declaration.
$ID[3] = $SIID_DRIVECD
~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1408,26) : WARNING: $SIID_DRIVENET: possibly used before declaration.
$ID[4] = $SIID_DRIVENET
~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(833,66) : ERROR: $SEM_FAILCRITICALERRORS: undeclared global variable.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(833,91) : ERROR: $SEM_NOOPENFILEERRORBOX: undeclared global variable.
Local $Mode = _WinAPI_SetErrorMode(BitOR($SEM_FAILCRITICALERRORS, $SEM_NOOPENFILEERRORBOX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(945,39) : ERROR: $SHGFI_SMALLICON: undeclared global variable.
Local $Flags = BitOR($SHGFI_SMALLICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(945,60) : ERROR: $SHGFI_SYSICONINDEX: undeclared global variable.
Local $Flags = BitOR($SHGFI_SMALLICON, $SHGFI_SYSICONINDEX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(949,33) : ERROR: $SHGFI_OPENICON: undeclared global variable.
$Flags = BitOR($SHGFI_OPENICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,61) : ERROR: $SHGFI_ICON: undeclared global variable.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,82) : ERROR: $SHGFI_OVERLAYINDEX: undeclared global variable.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(994,108) : ERROR: $SHGFI_USEFILEATTRIBUTES: undeclared global variable.
$hIL = _WinAPI_ShellGetFileInfo($sPath, BitOR($SHGFI_ICON, $SHGFI_OVERLAYINDEX, $SHGFI_USEFILEATTRIBUTES,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1082,40) : ERROR: $SSF_SHOWALLOBJECTS: undeclared global variable.
Local $Param[3] = [$SSF_SHOWALLOBJECTS,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1082,64) : ERROR: $SSF_SHOWEXTENSIONS: undeclared global variable.
Local $Param[3] = [$SSF_SHOWALLOBJECTS, 0, $SSF_SHOWEXTENSIONS]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1362,28) : ERROR: $SIID_DOCNOASSOC: undeclared global variable.
$ID[0] = $SIID_DOCNOASSOC
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1363,24) : ERROR: $SIID_FOLDER: undeclared global variable.
$ID[1] = $SIID_FOLDER
~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1364,28) : ERROR: $SIID_FOLDEROPEN: undeclared global variable.
$ID[2] = $SIID_FOLDEROPEN
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1366,69) : ERROR: $SHGSI_ICON: undeclared global variable.
$tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1366,87) : ERROR: $SHGSI_SMALLICON: undeclared global variable.
$tIcon = _WinAPI_ShellGetStockIconInfo($ID[$i], BitOR($SHGSI_ICON, $SHGSI_SMALLICON)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1404,28) : ERROR: $SIID_DRIVEFIXED: undeclared global variable.
$ID[0] = $SIID_DRIVEFIXED
~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1405,29) : ERROR: $SIID_DRIVEREMOVE: undeclared global variable.
$ID[1] = $SIID_DRIVEREMOVE
~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1406,26) : ERROR: $SIID_DRIVERAM: undeclared global variable.
$ID[2] = $SIID_DRIVERAM
~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1407,25) : ERROR: $SIID_DRIVECD: undeclared global variable.
$ID[3] = $SIID_DRIVECD
~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3(1408,26) : ERROR: $SIID_DRIVENET: undeclared global variable.
$ID[4] = $SIID_DRIVENET
~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer.au3 - 20 error(s), 20 warning(s)
!>21:38:19 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 0 Time: 0.530

So I added the #include <APIConstants.au3> as he suggested above:

#Include <GUIConstantsEx.au3>
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>
#Include <GUITreeView.au3>
#Include <TVExplorer.au3>
#Include <TreeViewConstants.au3>
#Include <WindowsConstants.au3>

But I still end up with 1 error that won't let me run the examples:

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /prod /AU3Check /in "D:\My Documents\AutoIt\TVExplorer\TVExplorer_Ex.au3"
+>21:47:01 Starting AutoIt3Wrapper v.2.1.0.33 Environment(Language:0409 Keyboard:00000409 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0) from:C:\Program Files (x86)\AutoIt3
C:\Program Files (x86)\AutoIt3\Include\ImageListConstants.au3(12,40) : ERROR: $E_INVALIDARG previously declared as a 'Const'.
Global Const $E_INVALIDARG = 0x80070057
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\My Documents\AutoIt\TVExplorer\TVExplorer_Ex.au3 - 1 error(s), 0 warning(s)
!>21:47:02 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 0 Time: 1.097

I could comment out the offending line in either of the includes but then I'd be afraid of breaking something else - I'm using AutoIt 3.3.8.0, (tried 3.3.8.1, didn't make any difference), Win7 x64.

Is there a better fix available than just commenting out the line?

Thanks for any help.

water · July 7, 2012

Unfortunately no.

I once had the same problem that a constant was defined in two include files. You have to comment out one of them. If they have the same value assigned then it shouldn't be a problem for your scripts.

4wd · July 8, 2012

Thanks water, I'll move the modified include into the source directory so it doesn't screw up other things.

water · July 8, 2012

darkshark · July 11, 2012

I'm trying to add a 'tristate' to this udf

but i'm not having success!

would be good to add that in the next version, if i get news i post here!

p.s: very nice udf, thanks for sharing!

Edited July 14, 2012 by darkshark

ModemJunki · October 22, 2012

This is really good, thank you.

Is it possible to browse and return only folders, and not show files?

Melba23 · October 22, 2012

ModemJunki,

Look at posts #12 and 13 - that should give you a clue.

M23

Yashied · December 10, 2013

Links updated.

P.S.

If you can't download my programs in other posts please change address:

http://yashied.narod2.ru/

to

http://yashied.ru/

May 13, 2014

Hi Yashied,

I want to add the path @DesktopDir to the ListView but i can not find a normal way how to do it with your UDF..

I did it in very horrible way.. i did it with help from your example in

http://www.autoitscript.com/forum/topic/124430-display-on-the-fly-a-directory-tree-in-a-treeview/

this is what i did:

#Include <GUIConstantsEx.au3>
#Include <GUITreeView.au3>
#Include <TVExplorer.au3>
#Include <TreeViewConstants.au3>
#Include <WindowsConstants.au3>
#Include <WinAPIEx.au3>
#Include <Array.au3>
#AutoIt3Wrapper_Run_AU3Check=n

;~ Opt('MustDeclareVars', 1)

Global $hForm , $Input[3], $hFocus = 0, $Dummy, $Path, $Style

If Not _WinAPI_DwmIsCompositionEnabled() Then
    $Style = $WS_EX_COMPOSITED
Else
    $Style = -1
EndIf
$hForm = GUICreate('TVExplorer UDF Example', 700, 736, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $Style)
GUISetIcon(@WindowsDir & '\explorer.exe')
$hListViewInput = GUICtrlCreateInput('', 20, 378, 660, 19)

GUICtrlSetState(-1, $GUI_DISABLE)
$hListView = _GUICtrlTVExplorer_Create('', 20, 406, 660, 310, -1, $WS_EX_CLIENTEDGE, -1, '_TVEvent')
_TVSetPath($hListViewInput, _GUICtrlTVExplorer_GetSelected($hListView))
;~ _TV_Update("D:\Games", $hListView)
;~ _GUICtrlTVExplorer_AttachFolder($hListView, "D:\Games")

_TVUpdate($hListView,_GUICtrlTreeView_AddChild($hListView, 0,@DesktopDir, 0, 0) ) ; < =========== this is what i want to do - to add the path @DesktopDir to the list

;~ _TV_AddShortcut(1, $hListView, "D:\Games")

;~ _TV_Index($hListViewInput)

_GUICtrlTVExplorer_SetExplorerStyle($hListView)






;~ For $i = 0 To 2
;~  ConsoleWrite(_GUICtrlTVExplorer_GetSelected($hTV[$i])&@CRLF)
;~     _TVSetPath($Input[$i], _GUICtrlTVExplorer_GetSelected($hTV[$i]))
;~     _GUICtrlTVExplorer_SetExplorerStyle($hTV[$i])
;~ Next
GUISetState()





While 1
;~  ToolTip(_TV_Index($hListViewInput))
    Switch _GUICtrlTVExplorer_GetMsg()
        Case $GUI_EVENT_CLOSE
            GUIDelete()
            _GUICtrlTVExplorer_DestroyAll()
            Exit
        Case $TV_NOTIFY_SELCHANGED
            _TVSetPath($hListViewInput, $sPath)
    EndSwitch
WEnd

Func _TVEvent($hWnd, $iMsg, $sPath, $hItem)
    Switch $iMsg
        Case $TV_NOTIFY_SELCHANGED
            _TVSetPath($hListViewInput, $sPath)
    EndSwitch
EndFunc   ;==>_TVEvent

Func _TVSetPath($iInput, $sPath)
;~  ConsoleWrite($sPath&@CRLF)
    Local $Text = _WinAPI_PathCompactPath(GUICtrlGetHandle($iInput), $sPath, -2)

    If GUICtrlRead($iInput) <> $Text Then
        GUICtrlSetData($iInput, $Text)
    EndIf
EndFunc   ;==>_TVSetPath





; ========================================== Functions from:  http://www.autoitscript.com/forum/topic/124430-display-on-the-fly-a-directory-tree-in-a-treeview/  ==========================

Func _TVUpdate($hTV, $hItem)
    Local $hImageList = _SendMessage($hTV, $TVM_GETIMAGELIST)
    Local $Path = StringRegExpReplace(_TVGetPath($hTV, $hItem, "\"), '\\+\Z', '')
    ;ConsoleWrite($Path&@CRLF)
    Local $var = StringSplit($Path,"\",1)
    Local $foldername = $var[$var[0]]
    Local $Excluded[8] = [7, "$Recycle.Bin", "Documents and Settings", 'MSOCache', "PerfLogs", "ProgramData", "Recovery" , "System Volume Information"]
    If _ArraySearch($Excluded,$foldername,1) > 0 Then Return 0
    ;If DirGetSize($Path) = 0 Then Return 1
    Local $hSearch, $hIcon, $Index, $File

    $hSearch = FileFindFirstFile($Path & '\*')
    If $hSearch = -1 Then
        If Not @error Then
            If FileExists($Path) Then
;               If _WinAPI_PathIsDirectory($Path) Then
;                   ; Access denied
;               EndIf
            Else
                Return 0
            EndIf
        EndIf
    Else
        While 1
            $File = FileFindNextFile($hSearch)
            If @error Then
                ExitLoop
            EndIf
            ;If DirGetSize($Path) = 0 Then Return 0

            If @extended Then
                _GUICtrlTreeView_AddChild($hTV, $hItem, $File, 0, 0)

            EndIf
        WEnd
        FileClose($hSearch)
        ;ConsoleWrite($File&@CRLF)
    EndIf
    Return 1
EndFunc   ;==>_TVUpdate


Func _TVGetPath($hTV, $hItem, $sRoot)
    Local $Path = StringRegExpReplace(_GUICtrlTreeView_GetTree($hTV, $hItem), '([|]+)|(\\[|])', '\\')
    If Not $Path Then
        Return ''
    EndIf
    If Not StringInStr($Path, ':') Then
        Return StringRegExpReplace($sRoot, '(\\[^\\]*(\\|)+)\Z', '\\') & $Path
    EndIf
    Return $Path
EndFunc   ;==>_TVGetPath

In your UDF i tried _GUICtrlTVExplorer_AttachFolder and this function works but it deletes all other items in the list..

Please help me.

Thanks

Yashied · January 27, 2015

The library has been updated.

v1.3

Slightly increased speed of enumerating files and folders.
A few changes to work in AutoIt 3.3.6.1+.

TVExplorer UDF

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Yashied

Posted Images

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Similar Content