Изменение HotKey в программке!

[GUIMish]

Привет всем, я вот тут думаю, как бы мне поменять hotkey, в своей программке, а то у меня чего-то не выходит, вот допустим в этом коде: :-[

AdlibRegister("Hot", 100)

$Window = GUICreate("HotKey", 200, 100, -1, -1)

GUICtrlCreateLabel('Гор. Клавиша:', 7, 44, -1, 20)
$Inp = GUICtrlCreateInput('F6', 90, 40, 100, 20)
	GUICtrlSetBkColor(-1, 0xffffff)


GUISetState()
While 1
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd

Func Hot()
	HotKeySet("{" & GUICtrlRead($Inp) & "}", "Msg")
EndFunc

Func Msg()
	MsgBox (64,"Msg"," Hello!")
EndFunc

 

[Ksaan]

Не уверен но попробуй так

$key = GUICtrlRead( $Inp ) 

Func Hot ()
         If $Key Then   HotKeySet ("{" & $key & "}" , "Msg")
EndFunc

 

[ivsatel]

GUIMish
Как вариант:

Local $sKey

$Window = GUICreate("HotKey", 200, 100, -1, -1)

GUICtrlCreateLabel('Гор. Клавиша:', 7, 44, -1, 20)
$Inp = GUICtrlCreateInput('F6', 90, 40, 100, 20)
GUICtrlSetBkColor(-1, 0xffffff)

GUISetState()

While 1
	Sleep(100)
	HotKeySet("{" & $sKey & "}")
	$sKey = GUICtrlRead($Inp)
	HotKeySet("{" & $sKey & "}", "Msg")
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd

Func Msg()
	MsgBox(64, "Msg", " Hello!")
EndFunc   ;==>Msg

 

[GUIMish]

ivsatel:
То, что надо, огромное Спасибо!