kn007 发表于 2009-6-29 18:16:47

关于GUICreate 创建的窗口后的小小问题

本帖最后由 kn007 于 2009-6-29 20:39 编辑

GUICreate 创建的窗口,能不能加个什么语句让右上角的X无效?

我里面已经有退出键了,想要右上角的X无效

而且, 脚本里面有fileinstall的,我按退出键会filedelete,但按右上角的X 确不会删除,晕


如果能按右上角的X 也会删除,就不用让右上角的X无效了

kn007 发表于 2009-6-29 18:43:51

顶,快沉了

jhun 发表于 2009-6-29 19:43:28

Case $GUI_EVENT_CLOSE
exit
把exit删除

顽固不化 发表于 2009-6-29 19:54:49

Case $GUI_EVENT_CLOSE
      _Exit()

Func _Exit()
        ........
        Exit
EndFunc

kn007 发表于 2009-6-29 20:14:39

两位大哥,都没效啊,而且这句我里面有了,汗

kn007 发表于 2009-6-29 20:15:45

跟这个没关系吧Opt("OnExitFunc","Quit")

jhun 发表于 2009-6-29 20:17:57

贴源码~~~~~

kn007 发表于 2009-6-29 20:18:08

调用了4个opt

Opt("OnExitFunc","Quit")
Opt("GUICloseOnESC", 0)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)

kn007 发表于 2009-6-29 20:35:05

thesnow大大的源码#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiMenu.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)

$hMenu=_GUICtrlMenu_GetSystemMenu($Form1, False)
$iItem=_GUICtrlMenu_GetItemCount($hMenu)
_GUICtrlMenu_DeleteMenu($hMenu, $iItem-1,True)
_GUICtrlMenu_DeleteMenu($hMenu, $iItem-2,True)
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd他刚刚给我的,这个就行,可我现在写的还是不行,我的别的东西加上这个都可以。。不知跟皮肤有无关系

kn007 发表于 2009-6-29 20:38:52

我找到其他解决方案了,按右上角的X 会删除

                Case $GUI_EVENT_CLOSE
                        exit

替换为


                Case $GUI_EVENT_CLOSE
                        Quit()

kn007 发表于 2009-6-29 20:47:55

果然是皮肤问题

jhun 发表于 2009-6-29 21:17:37

如果按你解决方案肯定不是皮肤问题,你只是把单击关闭按钮执行的命令改成事件了

kn007 发表于 2009-6-29 21:56:32

如果按你解决方案肯定不是皮肤问题,你只是把单击关闭按钮执行的命令改成事件了
jhun 发表于 2009-6-29 21:17 http://www.autoitx.com/images/common/back.gif
加皮肤就不可以,不加皮肤就可以,我试过了,那个dll和skf不加载,啥事都没

kn007 发表于 2009-6-29 21:58:14

Dim $skf=@TempDir&"\Skin.skf"
_SkinGUI(@TempDir&"\Skin.dll", $skf, $Form1)

这两句注释掉就可以了

kn007 发表于 2009-6-29 21:58:51

单纯

Dim $skf"\Skin.skf"
_SkinGUI"\Skin.dll", $skf, $Form1)

也不行
页: [1] 2
查看完整版本: 关于GUICreate 创建的窗口后的小小问题