Что нового

Не работают горячие клавиши в функции HotKeySet

Defustor

Новичок
Сообщения
3
Репутация
1
Пример из справки по функции 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:
Код:
Run("perfmon.exe /res")
Возвращает 0. У вас так же? (Windows 7)
 

ivsatel

Продвинутый
Сообщения
319
Репутация
84
Defustor
Можно предположить:
1 - При нажатии горячих клавиш у вас раскладка русская
2 - Запуск perfmon.exe требует больше прав
 
Автор
D

Defustor

Новичок
Сообщения
3
Репутация
1
ivsatel [?]
Можно предположить:1 - При нажатии горячих клавиш у вас раскладка русская2 - Запуск perfmon.exe требует больше прав

В функции сменил буквы на русские, т.е. N-Т; S-Ы; R-К и всё заработало. Даже Монитор ресурсов стал запускаться. Странно как-то О_о.

Монитор ресурсов не запускался из AutoIt видимо потому-что я отключил UAC и не перезагрузился.
 
Верх