Пример из справки по функции HotKeySet:
После нажатия данной комбинации функция не вызывается.
Мой код:
Как решить проблему?
Код:
HotKeySet("+!d", "ShowMessage") ; Shift-Alt-d для вызова сообщения
После нажатия данной комбинации функция не вызывается.
Мой код:
Код:
Opt("MustDeclareVars", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1+2)
Opt("TrayOnEventMode", 1)
_Main()
Func _Main()
Local $l_ItmNotepad, $l_ItmST, $l_ItmRM, $l_ItmExit
TraySetToolTip("Run Tools")
HotKeySet("^!n", "_RunNotepad") ; Ctrl+Alt+N
HotKeySet("^!s", "_RunST")
HotKeySet("^!r", "_RunRM")
$l_ItmNotepad = TrayCreateItem("Блокнот")
$l_ItmST = TrayCreateItem("Ножницы")
$l_ItmRM = TrayCreateItem("Монитор ресурсов")
TrayCreateItem("")
$l_ItmExit = TrayCreateItem("Выход")
TrayItemSetOnEvent($l_ItmNotepad, "_RunNotepad")
TrayItemSetOnEvent($l_ItmST, "_RunST")
TrayItemSetOnEvent($l_ItmRM, "_RunRM")
TrayItemSetOnEvent($l_ItmExit, "_Exit")
While 1
Sleep(250)
WEnd
EndFunc
Func _RunNotepad()
Run("notepad.exe")
EndFunc
Func _RunST()
Run("SnippingTool.exe")
EndFunc
Func _RunRM()
Run("perfmon.exe /res")
EndFunc
Func _Exit()
Exit
EndFunc
Как решить проблему?
OffTopic:
Возвращает 0. У вас так же? (Windows 7)
Код:
Run("perfmon.exe /res")