[AHK]WIN7_输入法状态_Capslock状态检测提示

2018年最新方案：

#NoEnv
#Persistent

SendMode Input
CustomColor = EEAA99
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, Color, %CustomColor%
Gui, Font, s32
Gui, Add, Text, vMyText1 cLime, 　　　　　　　　
Gui, Add, Text, vMyText2 cLime, 　　　　　　　　
Gui, Add, Text, vMyText3 cLime, 　　　　　　　　
Gui, Add, Text, vMyText4 cLime, 　　　　　　　　
WinSet, TransColor, %CustomColor% 150
Gosub, LockOn
SetTimer, LockOn, 200
Gui, Show
hwnd := WinExist()
return


LockOn:
If GetKeyState("CapsLock","T")
GuiControl,, MyText1, CapsLock 开
;Else GuiControl,, MyText1, CapsLock 关
Else GuiControl,, MyText1,

Return

 

旧方案：

注册表位置：
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\

#Persistent
;作者:Quant
;时间:2016年12月23日10:13:22
;功能:ToolTip提示当前输入法状态

;~ 每台机器上数值不尽相同，具体值请去下面注册表位置查看：
;~ HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\

;~ 请先配置srf值
;~ 我机器里英文输入法的对应值0x8040804
;~ 我机器里搜狗输入法的对应值0xe0210804

srf:=[{name:"en",key:"0x8040804"},{name:"sg",key:"0xe0210804"}]

SetTimer, WatchCursor, 200
return

WatchCursor:
state := GetKeyState("Capslock", "T")
if state
	ToolTip CapsLock ON
else
	ToolTip % checkSrf()
return
 
checkSrf()
{
global
If (DllCall("GetKeyboardLayout","UINT",DllCall("GetWindowThreadProcessId","UINT",WinActive("A"),"UINTP",0),UInt) = srf[1].key) 	;英语输入法检测
		return srf[1].name
else if 	(DllCall("GetKeyboardLayout","UINT",DllCall("GetWindowThreadProcessId","UINT",WinActive("A"),"UINTP",0),UInt) =srf[2].key)	;搜狗输入法检测
		return srf[2].name
}

不想查注册表的也可以切换不同输入法后用下面脚本获取输入法的值

#z::
SetFormat, Integer, H 
WinID:=WinActive("A")
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0) 
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt") 
Clipboard:=InputLocaleID
MsgBox, %InputLocaleID% 
return