软件菜单-白红宇

软件菜单

阅读量：5129 次

发布时间：2019-06-13

本文共 102363 字，大约阅读时间需要 341 分钟。

#include <Misc.au3> #include <GUIMenu.au3> #include <Constants.au3> #include <GuiListView.au3> #include <ComboConstants.au3> #include <WindowsConstants.au3>   Opt('TrayIconHide', 1) $sGuiName = '软件菜单 — Beta 1.8.5' If WinExists($sGuiName) Then         WinActivate($sGuiName)         Exit EndIf   HotKeySet('{Enter}', 'Enter') AdlibRegister('Memory', 3000) ;注册一个 Adlib 函数 AdlibRegister ( "函数" [, 时间] ) Opt('TrayIconHide', 0) Opt("TrayMenuMode", 1) Opt("GUICloseOnESC", 0) Opt("TrayOnEventMode", 1)   ;~ Global Const $WM_DROPFILES = 0x0233 Global $aDroppedFiles[1] Global $hListView[6], $hType, $Combo1, $Radio1, $Radio2, $Radio3, $Radio4, $oSkin Global $iGroupID, $iPage = 0 Global $avArray[6] = ['全部', '娱乐', '影音', '办公', '工具', '其他'] Global $sConversion = '($|$)'   $sConfigPath = @ScriptDir & '\config1.8.ini' $MyGui = GUICreate($sGuiName, 800, 600, -1, -1, -1, $WS_EX_ACCEPTFILES) ;$WS_OVERLAPPEDWINDOW = 最大化可用 GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY");已知的Windows 消息代码(WM_MSG)注册一个用户自定义的函数.GUIRegisterMsg ( msgID, "函数" ) GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES") TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "SpecialEvent");当系统托盘发生一个特殊事件就执行一个用户自定义函数.   Dim $aX[6] = [115, 1000, 1000, 1000, 1000, 1000] For $i = 0 To 5         $hListView[$i] = GUICtrlCreateListView("", $aX[$i], 5, 680, 500, -1, $WS_EX_CLIENTEDGE)         GUICtrlSetState(-1, 8) ;$GUI_DROPACCEPTED = 8 即控件支持拖拽         GUICtrlSetColor(-1, 0x0080C0);设置控件中的文本色           $iBkColor = Number(IniRead($sConfigPath, 'BkColor', $i, '12639424'))         _GUICtrlListView_SetColumnWidth($hListView[$i], 0, 200) ;更改列宽         _GUICtrlListView_SetExtendedListViewStyle($hListView[$i], BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER));设置扩展样式         _GUICtrlListView_SetBkColor($hListView[$i], $iBkColor)         _GUICtrlListView_SetTextBkColor($hListView[$i], $iBkColor)         _GUICtrlListView_SetOutlineColor($hListView[$i], $iBkColor) ;设置边框颜色         _GUICtrlListView_SetView($hListView[$i], 1) ;设置控件的视图 Next Switcha($hListView[0], $avArray[0]);$avArray[6] = ['全部', '娱乐', '影音', '办公', '工具', '其他']   $Combo1 = GUICtrlCreateCombo($avArray[1], 60, 540, 80, 21, $CBS_DROPDOWNLIST) ;$CBS_DROPDOWNLIST = 控件不可编辑 GUICtrlSetData(-1, $avArray[2] & '|' & $avArray[3] & '|' & $avArray[4] & '|' & $avArray[5]) $Input1 = GUICtrlCreateInput("", 210, 540, 230, 21) $Input2 = GUICtrlCreateInput("", 620, 540, 100, 21)   $Buta = GUICtrlCreateButton("添加", 720, 538, 60, 25, $WS_GROUP) $Butb = GUICtrlCreateButton("浏览", 440, 538, 50, 25, $WS_GROUP)   GUICtrlCreateGroup("", 5, 0, 100, 280) $But0 = GUICtrlCreateButton($avArray[0], 15, 15, 80, 30, $WS_GROUP);此样式的控件被指定为控件组的第一个控件.                                                                    ;控件组由第一个控件和其后定义的所有控件组成, 直到下一个带有 WS_GROUP 样式的控件为止. $But1 = GUICtrlCreateButton($avArray[1], 15, 60, 80, 30, $WS_GROUP) $But2 = GUICtrlCreateButton($avArray[2], 15, 105, 80, 30, $WS_GROUP) $But3 = GUICtrlCreateButton($avArray[3], 15, 150, 80, 30, $WS_GROUP) $But4 = GUICtrlCreateButton($avArray[4], 15, 195, 80, 30, $WS_GROUP) $But5 = GUICtrlCreateButton($avArray[5], 15, 240, 80, 30, $WS_GROUP)   GUICtrlCreateGroup("图标排列方式", 5, 300, 100, 135) $Radio1 = GUICtrlCreateRadio("大 图 标", 20, 325, 68, 17) $Radio2 = GUICtrlCreateRadio("小 图 标", 20, 350, 68, 17) $Radio3 = GUICtrlCreateRadio("平    铺", 20, 375, 68, 17) $Radio4 = GUICtrlCreateRadio("列    表", 20, 400, 68, 17) GUICtrlSetState($Radio1, 1)   $sDefaultSkin = IniRead($sConfigPath, 'Skin', 'Default', '去掉皮肤') If $sDefaultSkin <> '' And $sDefaultSkin <> '去掉皮肤' Then         $Skin = '去掉皮肤' & '|' Else         $sDefaultSkin = '去掉皮肤'         $Skin = '' EndIf   $search = FileFindFirstFile(@ScriptDir & '\Skin\*.she') While 1         $file = FileFindNextFile($search)         If @error Then ExitLoop         $Skin &= StringRegExpReplace($file, '\.she', '') & '|' WEnd   GUICtrlCreateGroup("皮肤设置", 5, 445, 100, 60) $hSkin = GUICtrlCreateCombo($sDefaultSkin, 15, 470, 80, 21, BitOR(0x2, 0x40, 0x00200000, 0x3, $CBS_DROPDOWNLIST)) GUICtrlSetData(-1, $Skin)   Global $aMenuItemText[10] = ['运行程序', '程序目录', '刷新图标', '修改名称', '删除项目', '', '颜色设置', '设置当页背景色', '设置当页文本色', '恢复当页默认色'] $iMenu = GUICtrlCreateContextMenu(GUICtrlCreateDummy());在GUI上创建一个 Dummy 控件 $hMenu = GUICtrlGetHandle(-1)   $iMenuItem1 = GUICtrlCreateMenuItem($aMenuItemText[0] & '(&A)', $iMenu) $iMenuItem2 = GUICtrlCreateMenuItem($aMenuItemText[1] & '(&P)', $iMenu) $iMenuItem3 = GUICtrlCreateMenuItem($aMenuItemText[2] & '(&R)', $iMenu) $iMenuItem4 = GUICtrlCreateMenuItem($aMenuItemText[3] & '(&S)', $iMenu) $iMenuItem5 = GUICtrlCreateMenuItem($aMenuItemText[4] & '(&D)', $iMenu) GUICtrlCreateMenuItem($aMenuItemText[5], $iMenu) $iColor = GUICtrlCreateMenu($aMenuItemText[6] & '(&C)', $iMenu) $iMenuItem6 = GUICtrlCreateMenuItem($aMenuItemText[7], $iColor) $iMenuItem7 = GUICtrlCreateMenuItem($aMenuItemText[8], $iColor) $iMenuItem8 = GUICtrlCreateMenuItem($aMenuItemText[9], $iColor)   GUICtrlCreateGroup("添加程序", 5, 515, 790, 60) GUICtrlCreateLabel("类型：", 20, 543, 40, 24) GUICtrlCreateLabel("目录：", 170, 543, 40, 24) GUICtrlCreateLabel("软件名(可省略)：", 515, 543, 100, 24)   GUICtrlCreateLabel("查看位置：", 10, 583, 62, 17) $hType = GUICtrlCreateLabel($avArray[0], 70, 583, 60, 17) GUICtrlCreateLabel("系统版本：" & @OSVersion, 250, 583, 150, 17) GUICtrlCreateLabel("系统日期：" & @YEAR & "-" & @MON & "-" & @MDAY, 450, 583, 150, 17) GUICtrlCreateLabel("By：水木子", 720, 583, 80, 17)   Read() Readall();皮肤 Skin(IniRead($sConfigPath, 'Skin', 'Default', '')) GUISetState();调整窗口的状态. _ReduceMemory(@AutoItPID)   While 1         $nMsg = GUIGetMsg() ;捕获窗口消息.         Switch $nMsg                 Case -3                         GUIDelete($MyGui)                         Exit                 Case $But0 To $But5                         $iControlID = $nMsg - 15                         If $iPage <> $iControlID Then                                 Switcha($iPage, $avArray[$iControlID])                                 $iPage = $iControlID                                 Switchb($iControlID)                         EndIf                 Case $Buta                         AddItem(GUICtrlRead($Combo1), GUICtrlRead($Input1), GUICtrlRead($Input2))                         GUICtrlSetData($Input1, '')                         GUICtrlSetData($Input2, '')                 Case $Butb                         $Folder = FileOpenDialog("查找", '', "可执行文件(*.*)")                         If Not @error Then GUICtrlSetData($Input1, $Folder)                 Case $Radio1 To $Radio4                         _GUICtrlListView_SetView($hListView[$iPage], $nMsg - 21)                 Case -13                         For $i = 1 To UBound($aDroppedFiles) - 1                                 $SoftwareName = StringRegExpReplace($aDroppedFiles[$i], '.+\\|\.\w+$', '')                                 AddItem(GUICtrlRead($Combo1), $aDroppedFiles[$i], $SoftwareName)                         Next                         GUICtrlSendMsg($hListView[$iPage], $LVM_SETCOLUMNWIDTH, 0, -1) ;发送一个消息到控件.         EndSwitch WEnd   Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)         Switch $iwParam                 Case $hListView[0] To $hListView[5]                         Local $tBuffer = DllStructCreate($tagNMHDR, $ilParam)                         Switch DllStructGetData($tBuffer, 'Code')                                 Case $NM_DBLCLK                                         RunProgram(1)                                 Case $NM_RCLICK                                         $iMenuIndex = Number($iwParam - $hListView[0] + 1)                                         $hMenu = GUICtrlGetHandle($iMenu)                                         _SetMenuStatus($hListView[$iMenuIndex - 1], $hMenu)                                         Local $iMenuId = _GUICtrlMenu_TrackPopupMenu($hMenu, $MyGui, -1, -1, 1, 1, 2)                                         Switch $iMenuId                                                 Case $iMenuItem1                                                         RunProgram(1)                                                 Case $iMenuItem2                                                         RunProgram(2)                                                 Case $iMenuItem3                                                         Refresh()                                                 Case $iMenuItem4                                                         Rename()                                                 Case $iMenuItem5                                                         Delete()                                                 Case $iMenuItem6                                                         $iBkColor = _ChooseColor(0, 255, 0, $MyGui)                                                         If $iBkColor <> -1 Then                                                                 _GUICtrlListView_BeginUpdate($hListView[$iPage])                                                                 _GUICtrlListView_SetBkColor($hListView[$iPage], $iBkColor)                                                                 _GUICtrlListView_SetTextBkColor($hListView[$iPage], $iBkColor)                                                                 _GUICtrlListView_EndUpdate($hListView[$iPage])                                                                 IniWrite($sConfigPath, 'BkColor', $hListView[$iPage] - 3, $iBkColor)                                                         EndIf                                                 Case $iMenuItem7                                                         $nTextColor = _ChooseColor(0, 255, 0, $MyGui)                                                         If $nTextColor <> -1 Then                                                                 _GUICtrlListView_SetTextColor($hListView[$iPage], $nTextColor)                                                                 IniWrite($sConfigPath, 'BkColor', 'TextColor', $nTextColor)                                                         EndIf                                                 Case $iMenuItem8                                                         If MsgBox(32 + 1, '恢复颜色值', '你确定要恢复当页颜色值吗？') = 1 Then                                                                 _GUICtrlListView_SetTextColor($hListView[$iPage], 12615680)                                                                 _GUICtrlListView_BeginUpdate($hListView[$iPage])                                                                 _GUICtrlListView_SetBkColor($hListView[$iPage], $CLR_MONEYGREEN)                                                                 _GUICtrlListView_SetTextBkColor($hListView[$iPage], $CLR_MONEYGREEN)                                                                 _GUICtrlListView_SetOutlineColor($hListView[$iPage], $CLR_MONEYGREEN)                                                                 _GUICtrlListView_EndUpdate($hListView[$iPage])                                                                 IniWrite($sConfigPath, 'BkColor', $hListView[$iPage] - 3, '12639424')                                                                 IniWrite($sConfigPath, 'BkColor', 'TextColor', '12615680')                                                         EndIf                                         EndSwitch                         EndSwitch                         $tBuffer = 0         EndSwitch EndFunc   ;==>WM_NOTIFY   Func Readall() ;皮肤         _GUICtrlListView_BeginUpdate($hListView[0])         _GUICtrlListView_DeleteAllItems($hListView[0])         For $i = 1 To UBound($avArray) - 1                 $iNumber = IniReadSection($sConfigPath, $avArray[$i])                 If Not @error Then                         For $ii = 1 To $iNumber[0][0]                                 CreateGroup($hListView[0], $i, $avArray[$i], $iNumber[$ii][1], $iNumber[$ii][0])                         Next                 EndIf         Next         _GUICtrlListView_EndUpdate($hListView[0]) EndFunc   ;==>Readall   Func Read()         For $i = 1 To UBound($avArray) - 1                 _GUICtrlListView_BeginUpdate($hListView[$i])                 _GUICtrlListView_DeleteAllItems($hListView[$i])                 $iNumber = IniReadSection($sConfigPath, $avArray[$i])                 If Not @error Then                         For $ii = 1 To $iNumber[0][0]                                 CreateGroup($hListView[$i], 1, $avArray[$i], $iNumber[$ii][1], $iNumber[$ii][0])                         Next                 EndIf                 _GUICtrlListView_EndUpdate($hListView[$i])         Next EndFunc   ;==>Read   Func RunProgram($iEvent)         $iItemIndex = GUICtrlRead($hListView[$iPage])         $sItemText = GUICtrlRead(Number($iItemIndex))         If ($iItemIndex) Then                 $sFileText = FileRead($sConfigPath)                 $aSoftPath = StringRegExp($sFileText, '(?<=' & StringRegExpReplace($sItemText, $sConversion, '\\$1') & '=)' & '[^\r]+', 3)                 $sWorkPath = StringRegExpReplace($aSoftPath[0], '(?<=\\)[^\\]+$', '')                 If $iEvent = 2 Then ShellExecute($sWorkPath)                 If $iEvent = 1 Then ShellExecute($aSoftPath[0], '', $sWorkPath)         EndIf EndFunc   ;==>RunProgram   Func Refresh()         Read()         Readall()         $sFileText = FileRead($sConfigPath) ;从此前已打开的文本文件中读取指定数量的字符.         If ($sFileText) Then                 $handle = FileOpen($sConfigPath, 2);打开指定的文件以供读写. 2 = 写入模式(先删除之前的内容)                 FileClose($handle)                 FileWrite($sConfigPath, StringRegExpReplace($sFileText, '^\v+|\r?\n(?=\r?\n)|\r?\n$', ''))         EndIf EndFunc   ;==>Refresh   Func Rename() ;检查是否已经载入软件快捷方式         $iItemIndex = GUICtrlRead($hListView[$iPage])         $sItemText = GUICtrlRead(Number($iItemIndex))         $sNewName = InputBox('重命名', '原文件名：' & $sItemText & @CRLF & @CRLF & '请输入新的名称！', $sItemText)         If ($sNewName) Then                 If Detect($sNewName) Then                         MsgBox(48, '提示！', $sNewName & '：已经存在，为避免出错，请勿重复设置！')                 Else                         GUICtrlSetData($iItemIndex, $sNewName)                         $sFileText = FileRead($sConfigPath)                         $handle = FileOpen($sConfigPath, 2)                         FileClose($handle)                         $sReplace = StringRegExpReplace($sFileText, StringRegExpReplace($sItemText, $sConversion, '\\$1') & '=', $sNewName & '=')                         FileWrite($sConfigPath, $sReplace)                         If $iPage = 0 Then                                 Read()                         Else                                 Readall()                         EndIf                 EndIf         EndIf EndFunc   ;==>Rename   Func Delete()         $iItemIndex = GUICtrlRead($hListView[$iPage])         $sItemText = GUICtrlRead(Number($iItemIndex))         If MsgBox(32 + 1, '温馨提示！', '你确定要删除 ' & $sItemText & ' 吗？') = 1 Then                 $sText = FileRead($sConfigPath)                 GUICtrlDelete($iItemIndex)                 $handle = FileOpen($sConfigPath, 2)                 FileClose($handle)                 FileWrite($sConfigPath, StringRegExpReplace($sText, '(?i)' & StringRegExpReplace($sItemText, $sConversion, '\\$1') & '=[a-z]:\\.+\r?\n?', ''))                   If $iPage = 0 Then                         Read()                 Else                         Readall()                 EndIf         EndIf EndFunc   ;==>Delete   Func AddItem($SoftwareType, $SoftwarePath, $SoftwareName = '') ;读取快捷方式         If $SoftwarePath = '' Then Return MsgBox(48, '提示！', '请设置程序所在目录！')           If StringRegExp($SoftwarePath, '\.lnk') Then                 $aShortcut = FileGetShortcut($SoftwarePath) ;获取指定快捷方式的各种属性.                 $SoftwarePath = $aShortcut[0]         EndIf           If $SoftwareName = '' Then $SoftwareName = StringRegExpReplace($SoftwarePath, '.+\\|\.\w+$', '')         If Detect($SoftwareName) Then Return MsgBox(48, '提示！', $SoftwareName & '：已经存在，为避免出错，请勿重复设置！')           Switch $SoftwareType                 Case $avArray[1]                         $iGroupID = 1                 Case $avArray[2]                         $iGroupID = 2                 Case $avArray[3]                         $iGroupID = 3                 Case $avArray[4]                         $iGroupID = 4                 Case $avArray[5]                         $iGroupID = 5         EndSwitch           CreateGroup($hListView[0], $iGroupID, $SoftwareType, $SoftwarePath, $SoftwareName)         CreateGroup($hListView[$iGroupID], 1, $SoftwareType, $SoftwarePath, $SoftwareName)         IniWrite($sConfigPath, $SoftwareType, $SoftwareName, $SoftwarePath) EndFunc   ;==>AddItem   Func CreateGroup($hWnd, $iGroupID, $sGroupText, $sFilePath, $sFileName = '')         ;函数功能：在指定分组中添加项目         ;参数说明         ;参数1：控件句柄         ;参数2：组编号         ;参数3：组文本         ;参数4：文件路径         ;参数5：文件名（可选）           GUICtrlCreateListViewItem($sFileName, $hWnd)         If StringRegExp($sFilePath, '(?i)[a-z]:\\.+\.\w+$') = 0 Then                 GUICtrlSetImage(-1, 'shell32.dll', 4)         ElseIf StringRegExp($sFilePath, '(?i)\.exe|\.ico') Then                 GUICtrlSetImage(-1, $sFilePath)         Else                 GUICtrlSetImage(-1, _WinAPI_FindExecutable($sFilePath));检索与指定文件名相关联的可执行文件的名称         EndIf           $iNumber = _GUICtrlListView_GetCounterPage($hWnd) - 1  ;计算在可视区域中,垂直显示的项目数量.         _GUICtrlListView_EnableGroupView($hWnd);启用或禁用控件项目分组         _GUICtrlListView_InsertGroup($hWnd, -1, $iGroupID, $sGroupText & ' ') ;插入组         _GUICtrlListView_SetItemGroupID($hWnd, $iNumber, $iGroupID);设置项目组 ID EndFunc   ;==>CreateGroup   Func Switcha($hWnd, $Type)         GUICtrlSetData($hType, $Type);$hType = GUICtrlCreateLabel($avArray[0], 70, 583, 60, 17)         If $Type <> $avArray[0] Then GUICtrlSetData($Combo1, $Type)         ControlMove($MyGui, '', $hListView[$hWnd], 1000, Default);在窗口内移动控件. EndFunc   ;==>Switcha   Func Switchb($hWnd)         $iView = _GUICtrlListView_GetView($hListView[$hWnd]) ;检索控件的当前视图         Select                 Case $iView = 1                         GUICtrlSetState($Radio1, 1)                 Case $iView = 2                         GUICtrlSetState($Radio2, 1)                 Case $iView = 3                         GUICtrlSetState($Radio3, 1)                 Case $iView = 4                         GUICtrlSetState($Radio4, 1)         EndSelect         ControlMove($MyGui, '', $hListView[$hWnd], 115, Default) EndFunc   ;==>Switchb   Func Detect($sText)         If StringRegExp(FileRead($sConfigPath), '(?i)' & StringRegExpReplace($sText, $sConversion, '\\$1') & '=[a-z]:\\') Then                 Return True         Else                 Return False         EndIf EndFunc   ;==>Detect   Func WM_DROPFILES($hWnd, $msgID, $wParam, $lParam)         Local $nSize, $pFileName         Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)         $aDroppedFiles = 0         Dim $aDroppedFiles[$nAmt[0] + 1]         For $i = 0 To $nAmt[0] - 1                 $nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)                 $nSize = $nSize[0] + 1                 $pFileName = DllStructCreate("char[" & $nSize & "]")                 DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", _                                 DllStructGetPtr($pFileName), "int", $nSize)                   $aDroppedFiles[0] += 1                 $aDroppedFiles[$aDroppedFiles[0]] = DllStructGetData($pFileName, 1)                 $pFileName = 0         Next         ReDim $aDroppedFiles[$aDroppedFiles[0] + 1] EndFunc   ;==>WM_DROPFILES   Func SpecialEvent()         If WinGetState($MyGui) = 7 Then  ;获取指定窗口的状态.                 GUISetState(@SW_MINIMIZE);@SW_MINIMIZE 最小化指定窗口并激活下一个在Z轴(垂直屏幕)方向上的顶层窗口.         Else                 GUISetState(@SW_RESTORE);@SW_RESTORE 序在还原一个最小化窗口时应该应用此标志         EndIf EndFunc   ;==>SpecialEvent   Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)         Local $iCode         $iCode = BitShift($iwParam, 16) ; Hi Word ;按位"移"运算.         If $iCode = $CBN_SELCHANGE Then;组合框的列表框中的当前选项改变时发送                 $nSkin = GUICtrlRead($hSkin)                 If $oSkin <> $nSkin Then                         Skin($nSkin)                         $oSkin = $nSkin                         IniWrite($sConfigPath, 'Skin', 'Default', GUICtrlRead($hSkin))                 EndIf         EndIf EndFunc   ;==>WM_COMMAND   Func Enter()         If Not WinActive($MyGui) Then                 HotKeySet('{Enter}')                 Send('{Enter}')                 HotKeySet('{Enter}', 'Enter')         Else                 RunProgram(1)         EndIf EndFunc   ;==>Enter   Func Skin($She)         $hDll = DllOpen(@ScriptDir & '\Skin\Skin.dll')         If $She = '去掉皮肤' Then Return DllCall($hDll, "int", "SkinH_Detach")           DllCall($hDll, "int", "SkinH_AttachEx", "str", 'Skin\' & $She & '.she', "str", "mhgd")         DllCall($hDll, "int", "SkinH_SetAero", "int", 1) EndFunc   ;==>Skin   Func Memory()         _ReduceMemory(@AutoItPID) ;@AutoItPID 当前运行脚本的进程 PID EndFunc   ;==>Memory   Func _ReduceMemory($i_PID = -1)         If $i_PID <> -1 Then                 Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)                 Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])                 DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])         Else                 Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)         EndIf           Return $ai_Return[0] EndFunc   ;==>_ReduceMemory   Func _SetMenuStatus($hWnd, $hMenu)         If GUICtrlRead($hWnd) Then                 GUICtrlSetState($iMenuItem1, 64)                 GUICtrlSetState($iMenuItem2, 64)                 GUICtrlSetState($iMenuItem4, 64)                 GUICtrlSetState($iMenuItem5, 64)         Else                 GUICtrlSetState($iMenuItem1, 128)                 GUICtrlSetState($iMenuItem2, 128)                 GUICtrlSetState($iMenuItem4, 128)                 GUICtrlSetState($iMenuItem5, 128)         EndIf EndFunc   ;==>_SetMenuStatus

转载于:https://www.cnblogs.com/civilbin1573/p/3258809.html

你可能感兴趣的文章

【Debug】IAR在线调试时报错，Warning: Stack pointer is setup to incorrect alignmentStack，芯片使用STM32F103ZET6...