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

kn007

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

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

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


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

kn007

顶，快沉了

jhun

Case $GUI_EVENT_CLOSE
exit

把exit删除

顽固不化

Case $GUI_EVENT_CLOSE
      _Exit()

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

kn007

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

kn007

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

jhun

贴源码~~~~~

kn007

调用了4个opt

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

kn007

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

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

                Case $GUI_EVENT_CLOSE
                        exit

替换为


                Case $GUI_EVENT_CLOSE
                        Quit()

kn007

果然是皮肤问题

jhun

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

kn007

如果按你解决方案肯定不是皮肤问题，你只是把单击关闭按钮执行的命令改成事件了
jhun 发表于 2009-6-29 21:17

加皮肤就不可以，不加皮肤就可以，我试过了，那个dll和skf不加载，啥事都没

kn007

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

这两句注释掉就可以了

kn007

单纯

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

也不行