Jump to content

how to make button beside theh minimize button of the window


seco
 Share

Recommended Posts

@

Look for ANYGUI.au3 UDF

You can put buttons anywhere you like.

#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

;If $handleList has no-longer-existing enteries, remove them
;Doesn't work, possibly due to syntax or handle-string conversion issues
    #cs
    $rebuiltList = ""
    $array = StringSplit($handleList, "|")
    For $i = 1 to $array[0]
        If WinExists("handle=" & $array[$i]) Then $rebuiltList = $rebuiltList & "|" & $array[$i]
    Next
    $handleList = $rebuiltList
    #ce
    
    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

Enjoy !!

ptrex

Link to comment
Share on other sites

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
 Share

  • Recently Browsing   0 members

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