#NoTrayIcon
#include <GuiMenu.au3>
$LngShM = 'Показать сообщение'
$LngSet = 'Настройки'
$LngOpR = 'Открыть'
$LngExt = 'Выход'
$hHide = GUICreate('!5~e')
$hGui = GUICreate('%&g@', 2, 2, -300, -300, -1, -1, $hHide)
; $hGui = WinGetHandle(AutoItWinGetTitle())
; $iDummy = GUICtrlCreateDummy()
$ContMenu = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
$hMenu = GUICtrlGetHandle($ContMenu)
$iShM = GUICtrlCreateMenuItem($LngShM & @TAB & 'Enter', $ContMenu)
$iSet = GUICtrlCreateMenuItem($LngSet & @TAB & 'Ctrl+O', $ContMenu)
$iOpR = GUICtrlCreateMenuItem($LngOpR & ' RegEdit' & @TAB & 'Ctrl+Enter', $ContMenu)
$iExt = GUICtrlCreateMenuItem($LngExt & @TAB & 'Ctrl+NumPad0', $ContMenu)
GUISetState(@SW_SHOW, $hGui)
HotKeySet("!9", "PopupMenu")
While 1
Switch GUIGetMsg()
Case $iShM
MsgBox(0, '?', $LngShM)
Case $iSet
MsgBox(0, '?', $LngSet)
Case $iOpR
Run('regedit.exe')
Case $iExt
MsgBox(0, '?', $LngExt)
Exit
EndSwitch
WEnd
Func PopupMenu()
$aPos = MouseGetPos()
_GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, $aPos[0], $aPos[1], 1)
EndFunc ;==>PopupMenu |
