How to close gui with GUIRegisterMsg

[mLipok]

Can somebody show me what I'am doing wrong ?

I want to close gui with GUIRegisterMsg

I do not want to use GUIGetMsg .

expandcollapse popup

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

Global $__hGUI

GUI_TESTING("TESTING", 50, 0, 1000, 700)

While Not _IsPressed('13') ; 13 PAUSE key
    Sleep(10)
WEnd

Func GUI_TESTING($sTitle, $iLeft, $iTop, $iWidth, $iHeight)
    ; Create GUI
    $__hGUI = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX))

    ; When window is resized, run this function
    GUIRegisterMsg($WM_EXITSIZEMOVE, "_MY_WM_SIZE")
;~  GUIRegisterMsg($WM_SIZING, "_MY_WM_SIZE")
;~  GUIRegisterMsg($WM_SIZE, "_MY_WM_SIZE")
    GUIRegisterMsg($WM_QUIT, "_DESTROY_GUI")
    GUIRegisterMsg($WM_CLOSE, "_DESTROY_GUI")

    GUISetState()
EndFunc   ;==>GUI_TESTING

Func _MY_WM_SIZE($hWnd, $Msg, $wParam, $lParam)
    MsgBox(1, '_MY_WM_SIZE', 'test')
    If $hWnd = $__hGUI Then
    EndIf
EndFunc   ;==>_MY_WM_SIZE

Func _DESTROY_GUI($hWnd, $Msg, $wParam, $lParam)
    MsgBox(1, 'test 1 ', '_DESTROY_GUI')
    If $hWnd = $__hGUI Then
        MsgBox(1, 'test 2', '_DESTROY_GUI')
        ; Clean up
        GUIDelete($__hGUI)
    EndIf
EndFunc   ;==>_DESTROY_GUI

[mikell]

;http://msdn.microsoft.com/en-us/library/windows/desktop/ms646360%28v=vs.85%29.aspx

#Include <GUIConstantsEx.au3>

Global Const $SC_CLOSE = 0xF060

$gui = GUICreate("")
GUISetState()
GUIRegisterMsg(0x0112, "OnSysCommand") ; 0x0112 = WM_SYSCOMMAND

While 1
  Sleep(10)
WEnd


Func OnSysCommand($hWnd, $Msg, $wParam, $lParam)
    $test = BitAND($wParam, 0xFFF0)
    If $test = 0xF060 Then Exit
EndFunc

Very raw  but I'm sure you'll be able to carry on 

Edited June 11, 2014 by mikell

[Melba23]

mikell,

Please put a Sleep in that loop or you will be needing a new CPU.

M23

[mikell]

I do love my cpu, I don't want to change it

Thanks 

[mLipok]

Very raw  but I'm sure you'll be able to carry on 

Thanks man, I'll throw a look at it tonight.

 

ps.

And just in case, put a water cooling for your CPU

[mLipok]

I did a quick review of the URL specified by you

click by click and....

a quick overview:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms646352(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/windows/desktop/ms647984(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/windows/desktop/ms647983(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/windows/desktop/ms647553(v=vs.85).aspx#accessing_menu_items_programmatically

 

Whether due to these function, somebody could finally do some more precise automation to PopupMenu ?

EDIT:

I'm sorry if I'm going in completely wrong directions ...

Edited June 11, 2014 by mLipok

[mLipok]

mikell

Thank you so much.
You'll be able to soon see the use of it in my next UDF.

 

But for now, 

Based on your very good tip,
following piece of code may be useful to someone,

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global Const $SC_CLOSE = 0xF060
Global Const $SC_CONTEXTHELP = 0xF180
Global Const $SC_DEFAULT = 0xF160
Global Const $SC_HOTKEY = 0xF150
Global Const $SC_HSCROLL = 0xF080
Global Const $SC_KEYMENU = 0xF100
Global Const $SC_MAXIMIZE = 0xF030
Global Const $SC_MINIMIZE = 0xF020
Global Const $SC_MONITORPOWER = 0xF170
Global Const $SC_MOUSEMENU = 0xF090
Global Const $SC_MOVE = 0xF010
Global Const $SC_NEXTWINDOW = 0xF040
Global Const $SC_PREVWINDOW = 0xF050
Global Const $SC_RESTORE = 0xF120
Global Const $SC_SCREENSAVE = 0xF140
Global Const $SC_SIZE = 0xF000
Global Const $SC_TASKLIST = 0xF130
Global Const $SC_VSCROLL = 0xF070

Global $gui = GUICreate("OnSysCommand Test", -1, -1, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX))
GUISetState()
GUIRegisterMsg(0x0112, "OnSysCommand") ; 0x0112 = WM_SYSCOMMAND

While 1
    Sleep(10)
WEnd

Func OnSysCommand($hWnd, $Msg, $wParam, $lParam)
    If $hWnd = $gui Then
        Local $test = BitAND($wParam, 0xFFF0)
        Switch $test
            Case $SC_CLOSE
                TrayTip('OnSysCommand', '$SC_CLOSE', 5)
                Exit

            Case $SC_CONTEXTHELP
                TrayTip('OnSysCommand', '$SC_CONTEXTHELP', 5)

            Case $SC_DEFAULT
                TrayTip('OnSysCommand', '$SC_DEFAULT', 5)

            Case $SC_HOTKEY
                TrayTip('OnSysCommand', '$SC_HOTKEY', 5)

            Case $SC_HSCROLL
                TrayTip('OnSysCommand', '$SC_HSCROLL', 5)

            Case $SC_KEYMENU
                TrayTip('OnSysCommand', '$SC_KEYMENU', 5)

            Case $SC_MAXIMIZE
                TrayTip('OnSysCommand', '$SC_MAXIMIZE', 5)

            Case $SC_MINIMIZE
                TrayTip('OnSysCommand', '$SC_MINIMIZE', 5)

            Case $SC_MONITORPOWER
                TrayTip('OnSysCommand', '$SC_MONITORPOWER', 5)

            Case $SC_MOUSEMENU
                TrayTip('OnSysCommand', '$SC_MOUSEMENU', 5)

            Case $SC_MOVE
                TrayTip('OnSysCommand', '$SC_MOVE', 5)

            Case $SC_NEXTWINDOW
                TrayTip('OnSysCommand', '$SC_NEXTWINDOW', 5)

            Case $SC_PREVWINDOW
                TrayTip('OnSysCommand', '$SC_PREVWINDOW', 5)

            Case $SC_RESTORE
                TrayTip('OnSysCommand', '$SC_RESTORE', 5)

            Case $SC_SCREENSAVE
                TrayTip('OnSysCommand', '$SC_SCREENSAVE', 5)

            Case $SC_SIZE
                TrayTip('OnSysCommand', '$SC_SIZE', 5)

            Case $SC_TASKLIST
                TrayTip('OnSysCommand', '$SC_TASKLIST', 5)

            Case $SC_VSCROLL
                TrayTip('OnSysCommand', '$SC_VSCROLL', 5)

        EndSwitch
    EndIf
EndFunc   ;==>OnSysCommand

[mikell]

Nice but instead of enumerating constants, to please guinness and for readability you should better use MenuConstants.au3 

After many cogitations about water cooling I finally chose to use Sleep() which is a bit cheaper

[mLipok]

good advice .... this is indeed cheaper

[BrewManNH]

For more GUIRegisterMsg magic, check the link in my signature for a working demo for various windows message handlers.

[mLipok]

Thanks, man.
I did not expect that the answers to my questions I had in my face every day

mLipok

[mLipok]

Something about me

http://blog.ac-rouen.fr/clg-montesquieu-comenius-project/2011/04/24/polish-poems-translated-into-english/

 

EDIT:

"Glasses"

Mister Hilary runs and screams:

“Where on Earth could my glasses be?”

He checks in his pants and in his frock,
In his shoes, and in his socks.

Closet? Upturned, in a sorry shape,
He pats his robe, already patted his cape.

“A scandal!” he yells, “it’s beyond belief!
To have my glasses—stolen by a thief!”

Under the couch, on top of the seat,
Everywhere he pries: wheezing, beat.

He looks in the oven, and up the chimney,
In mouse holes and between piano keys.

He’ll rip up the floor, piece by piece,
Already he wants to call the police.

Then suddenly he peeks into the mirror…
He can’t believe it… He draws nearer.

Eureka! Though who would ever suppose,
His glasses are on his very own nose."

Edited June 11, 2014 by mLipok

[guinness]

to please guinness

I honestly stopped caring after v3.3.10.2 was released about improving coding standards around here. Edited June 11, 2014 by guinness

[mLipok]

cramps, but you did not write anything as you liked the rhyme.

btw.

presently

I'm a beer, so I can sometimes foolishly write

[mikell]

mLipok,

Personnally I like the poem but my english is not good enough to allow me to give an appreciation 

guinness,

A heartbreaking for sure but a wise decision though 

[guinness]

guinness,

A heartbreaking for sure but a wise decision though 

Ungrateful people like you broke my spirit, so I am glad I found the likes of C# in which standards are respected throughout the community.

PS I am not laughing!

[mikell]

guinness,
I'm a teaser and not particularly representative of the AutoIt community
Everybody here is very grateful to you for all your work, and so am I, can you believe this ?

[guinness]

No excuse to be whining anymore since I have resumed development of PreExpand.

[mikell]

Rather than whinings, surprises with some heavinesses e.g. $STR_REGEXPARRAYGLOBALFULLMATCH (which name should logically be $STR_REGEXPARRAYOFARRAYSGLOBALFULLMATCH btw) 

[guinness]

Rather than whinings, surprises with some heavinesses e.g. $STR_REGEXPARRAYGLOBALFULLMATCH (which name should logically be $STR_REGEXPARRAYOFARRAYSGLOBALFULLMATCH btw) 

That's 4.