关于GUICreate 创建的窗口后的小小问题
本帖最后由 kn007 于 2009-6-29 20:39 编辑GUICreate 创建的窗口,能不能加个什么语句让右上角的X无效?
我里面已经有退出键了,想要右上角的X无效
而且, 脚本里面有fileinstall的,我按退出键会filedelete,但按右上角的X 确不会删除,晕
如果能按右上角的X 也会删除,就不用让右上角的X无效了 顶,快沉了 Case $GUI_EVENT_CLOSE
exit
把exit删除 Case $GUI_EVENT_CLOSE
_Exit()
Func _Exit()
........
Exit
EndFunc 两位大哥,都没效啊,而且这句我里面有了,汗 跟这个没关系吧Opt("OnExitFunc","Quit") 贴源码~~~~~ 调用了4个opt
Opt("OnExitFunc","Quit")
Opt("GUICloseOnESC", 0)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1) 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他刚刚给我的,这个就行,可我现在写的还是不行,我的别的东西加上这个都可以。。不知跟皮肤有无关系 我找到其他解决方案了,按右上角的X 会删除
Case $GUI_EVENT_CLOSE
exit
替换为
Case $GUI_EVENT_CLOSE
Quit() 果然是皮肤问题 如果按你解决方案肯定不是皮肤问题,你只是把单击关闭按钮执行的命令改成事件了 如果按你解决方案肯定不是皮肤问题,你只是把单击关闭按钮执行的命令改成事件了
jhun 发表于 2009-6-29 21:17 http://www.autoitx.com/images/common/back.gif
加皮肤就不可以,不加皮肤就可以,我试过了,那个dll和skf不加载,啥事都没 Dim $skf=@TempDir&"\Skin.skf"
_SkinGUI(@TempDir&"\Skin.dll", $skf, $Form1)
这两句注释掉就可以了 单纯
Dim $skf"\Skin.skf"
_SkinGUI"\Skin.dll", $skf, $Form1)
也不行
页:
[1]
2