#NoEnv
#SingleInstance Force  
#KeyHistory 0
ListLines Off
SetBatchLines -1 
#UseHook

Global Data := {}, hGui
Gui, +HwndhGui
Gui, Font, s12, Comic Sans MS

Gui, Add, Text, Center gText Border vTextHotkey1 w300
Gui, Add, Text, Center gText Border vTextHotkey2 wp  

Gui, Show
Gui, Add, Hotkey, vHotkey1 Hidden gHotkey w0 h0
Gui, Add, Hotkey, vHotkey2 Hidden gHotkey wp hp
Return
 

#IF WinActive("ahk_id" hGui) && HotkeyFocus(name)
*LWin::
*RWin:: 
	Hotkey(name, 1)  
	KeyWait, LWin 
	KeyWait, RWin  
	Return

*LWin Up::
*RWin Up:: Hotkey(name, 0)  
#IF

HotkeyFocus(byref name) {
	GuiControlGet, name, FocusV
	If (name ~= "^Hotkey\d+$")
		Return 1
}  

Text() {
	GuiControl, Focus, % SubStr(A_GuiControl, 5) 
}
	
Hotkey(p1, p2 = "") {  
	If (p1 + 0 = "")
	{
		Control := p1 
		If p2
			(str .= "Win + "), win := 1
	}	
	Else 
		Control := A_GuiControl
	HK := %Control%
	If !win && (GetKeyState("LWin", "P") || GetKeyState("RWin", "P"))
		win := 1, HK := "#" HK 
	Instr(HK, "#") && (str .= "Win + ")
	Instr(HK, "^") && (str .= "Ctrl + ")
	Instr(HK, "+") && (str .= "Shift + ")
	Instr(HK, "!") && (str .= "Alt + ")
	RegExMatch(HK, "S)([\^\+!#]*)(.*?$)", K)  
	If (!p2 && K2 != "")
		Return
	text := str Format("{:U}", K2)
	GuiControl, , Text%Control%, % text
	If !Data[Control]
		Data[Control] := {}
	Data[Control].TXT := text
	If (GetKeyVK(K2) = "0")
		Data[Control].HK := ""
	Else 
		Data[Control].HK := K1 . Format("vk{:X}", GetKeyVK(K2))
	GuiControl, Focus, % Control
	; ToolTip % Data[Control].HK  
}
 

GuiClose() {
    ExitApp
} 

IniRead, Key, %Patch%, Main, Key1
GuiControl,, key, %key%
gosub OK

Del

Del