Jump to content

Recommended Posts

Posted

maybe this can help starting.

#include <ANYGUI.au3>
#include <guiconstants.au3>

Opt("WinTitleMatchMode", 4) ; Allow ClassName lookup to avoid window confusion
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode

Global $handleList = ""
Dim $Test

While 1
    $appWindow = WinGetHandle("classname=ExploreWClass")
    If @error Then
        $handleList = "" ; No Explorer windows found, so clear the list
        sleep(250)
        ContinueLoop
    EndIf
    
;; CHECK WHETHER $handleList is up to date;;
    
;ToolTip("DEBUG:  " & $handleList & "      " & $appWindow)
    
;If $appWindow is not in our list, add it
    If Not StringInStr($handleList, "|" & $appWindow) Then
        $handleList = $handleList & "|" & $appWindow
        Addbutton($appWindow)
        
    Else
;;MsgBox(4096,"debug","present")
    EndIf

   sleep(250)
WEnd


Func Clicked()
    $test=ControlGetText("","",41477)
    MsgBox(0,"TEST","OK  "&$test)
EndFunc

Func AddButton($winhandle)
    Local $Targetwindow, $btn
    $Targetwindow = _GuiTarget($winhandle,"","FolderView",40960); mode 1 set so all '_Targetadd(s) go to this window
    $btn = _TargetaddButton ( "New Button", 740, 3, 80, 30,"","",$Targetwindow);
    GUICtrlSetOnEvent($btn[0], "Clicked") ; [0] returns the array element of the button see detail $a[0] in AnyGui Functions
    
    GUISetState(@SW_SHOW)
EndFunc

But it needs ANYGUI.au3 as an include !!

Look for ANYGUI in the Example Scripts.

Open the Explore and add any logic to the button you want.

regards

ptrex

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...