Win10输入法“中”“英”切换源码（2023.01.14 支持第三方输入法）代码在二楼
代码思路：https://bbs.bccn.net/thread-511088-1-1.html
多键盘布局模式：2个输入法图标
【2023.01.14 支持第三方输入法 代码在二楼】
程序代码：
*****************************************************
* win10输入法([color=#800000]1) &&打开输入法[/color]
* win10输入法([color=#800000]0) &&关闭输入法[/color]
* VFP自身的IMESTATUS([color=#800000]0)对win7有毛病，不支持[/color]
* win10 IME 改为 TFS 模式
* [color=#800000]2023.01.13 增加多键盘布局模式（2个输入法图标）[/color]
*****************************************************
PARAMETERS m._Mode
AGETFILEVERSION(aFile, "ntdll.dll")
IF VAL(aFile(4)) >= 10 && VFP自身的“OS()”在win10中也失灵了
******************
* 判断“中”“英”
******************
*!* #include <iostream>
*!* #include <Windows.h>
*!* #pragma comment (lib, "imm32.lib")
*!* #define IMC_GETOPENSTATUS 0x0005
*!* using namespace std;
*!* int main() {
*!* while (true) {
*!* HWND hIME = ImmGetDefaultIMEWnd(GetForegroundWindow());
*!* LRESULT status = SendMessage(hIME, WM_IME_CONTROL, IMC_GETOPENSTATUS, 0);
*!* cout << (status ? "Korean" : "English") << endl;
*!* Sleep(100);
*!* }
*!* return 0;
*!* }
#DEFINE WM_IME_CONTROL 0x283
#DEFINE IMC_GETCONVERSIONMODE 0x0005
LOCAL m.lnHwnd, m._IME状态 && 0：“英”，否则是“中”或其它
IF win10鼠标点击切换中英(0) > 1
DECLARE INTEGER ImmGetContext IN imm32.DLL LONG
*/* DECLARE INTEGER ImmGetOpenStatus IN imm32.DLL LONG
DECLARE INTEGER ImmSetConversionStatus IN imm32.DLL LONG,LONG iMode,LONG iSentence
m.lnHwnd = ImmGetContext(_VFP.HWND)
*/* m._IME状态 = ImmGetOpenStatus(m._m)
*/* ? IIF(m._IME状态 = 0, "英", "中")
*!* 中文输入-半角-中文符号 1025
*!* 中文输入-全角-中文符号 1033
*!* 中文输入-半角-英文符号 1
*!* 中文输入-全角-英文符号 9
*!* 英文输入-半角-中文符号 1024
*!* 英文输入-全角-中文符号 1032
*!* 英文输入-半角-英文符号 0
*!* 英文输入-全角-英文符号 8
ImmSetConversionStatus(m.lnHwnd, IIF(m._mode = 1,1025, 0), 8)
CLEAR DLLS ImmSetConversionStatus, ImmGetContext
RETURN
ENDIF
DECLARE INTEGER ImmGetDefaultIMEWnd IN Imm32 LONG
*/* DECLARE INTEGER SendMessage IN WIN32API AS "ls_SendMessage" LONG HWND, LONG Msg, LONG wParam, INTEGER
*/* lnHwnd = ImmGetDefaultIMEWnd(_VFP.HWND) && 输入法会给每个窗口发消息
*/* m._IME状态 = ls_SendMessage(lnHwnd, WM_IME_CONTROL, IMC_GETCONVERSIONMODE, 0) && m.lcText：任务栏输入指示
DECLARE INTEGER ImmGetContext IN imm32.DLL LONG
lnHwnd = ImmGetContext(_VFP.HWND)
m._IME状态 = ImmGetOpenStatus(lnHwnd)
******************
IF m._Mode = 0 && 置“英”
IF m._IME状态 != 0
win10鼠标点击切换中英()
ENDIF
ELSE && 置“中”
IF m._IME状态 = 0
win10鼠标点击切换中英()
ENDIF
ENDIF
CLEAR DLLS "ImmGetDefaultIMEWnd", "ls_SendMessage"
RETURN
ENDIF
FUNCTION win10鼠标点击切换中英(m._ime_num)
DECLARE INTEGER FindWindow IN user32 AS "ls_FindWindow" STRING, STRING
DECLARE INTEGER FindWindowEx IN user32 AS "ls_FindWindowEx" INTEGER, INTEGER, STRING, STRING
DECLARE INTEGER PostMessage IN user32 AS "ls_PostMessage" INTEGER, INTEGER, INTEGER, INTEGER
LOCAL m.lnHwnd1, lnHwnd2, m.lnHwnd3, m.lnHwnd4, m.lnHwnd5
m.lnHwnd1 = ls_FindWindow("Shell_TrayWnd", 0)
m.lnHwnd2 = ls_FindWindowEx(m.lnHwnd1, 0, "TrayNotifyWnd", NULL)
m.lnHwnd3 = ls_FindWindowEx(m.lnHwnd2, 0, "TrayInputIndicatorWClass", NULL)
m.lnHwnd4 = ls_FindWindowEx(m.lnHwnd3, 0, "IMEModeButton", NULL)
m.lnHwnd5 = ls_FindWindowEx(m.lnHwnd3, 0, "InputIndicatorButton", NULL) &&
************************
* 检查单键盘、双键盘布局
************************
IF TYPE("_ime_num") = "N"
LOCAL m._IME布局1, lpRect1, lnWidth1, m._IME布局2, lpRect2, lnWidth2
lpRect1 = REPLI(CHR(0), 16)
lpRect2 = REPLI(CHR(0), 16)
DECLARE SHORT GetWindowRect IN user32 INTEGER HWND, STRING @ lpRect
GetWindowRect (lnHwnd4, @lpRect1)
lnWidth1 = CTOB(SUBS(lpRect1,9,4),'4rs') - CTOB(SUBS(lpRect1,1,4),'4rs')
GetWindowRect (lnHwnd4, @lpRect2)
lnWidth2 = CTOB(SUBS(lpRect1,9,4),'4rs') - CTOB(SUBS(lpRect2,1,4),'4rs')
CLEAR DLLS "ls_FindWindow", "ls_FindWindowEx", "ls_PostMessage"
IF lnWidth1 > 0 AND lnWidth2 > 0
m._ime_num = 2
ELSE
m._ime_num = 1
ENDIF
RETURN m._ime_num
ENDIF
************************
#DEFINE WM_MOUSEMOVE 0x0200
#DEFINE WM_NCLBUTTONDOWN 0x00A1
#DEFINE WM_LBUTTONDOWN 0x0201
#DEFINE WM_LBUTTONUP 0x0202
#DEFINE MK_LBUTTON 0x0001
*!* #DEFINE WM_GETTEXT 0x000D
ls_PostMessage(m.lnHwnd4, WM_LBUTTONDOWN, MK_LBUTTON, 1) && 按下左键
ls_PostMessage(m.lnHwnd4, WM_LBUTTONUP, MK_LBUTTON, 1) && 放开左键
CLEAR DLLS "ls_FindWindow", "ls_FindWindowEx", "ls_PostMessage"
ENDFUNC
[此贴子已经被作者于2023-1-14 13:26编辑过]
