执行编译后的exe时，一启动程序，系统就自动切换到中文输入法，手动关闭可以，但在程序中关闭不起作用，不知是何原因，请高手指教
尝试方法：
text.gotfocus里 IMESTATUS(0)或this.imemode=2 均试过，无效

而且，在开发环境中的命令窗口输入IMESTATUS(0)也不起作用

环境VFP9 SP2 WIN10

搜索过坛子里的相关帖子，方法试过无效，不知是哪里的原因

感谢回复，看来还需要等高人出手解决一下了

吹版有所不知，我有个程序是专门用来扫描的，程序运行期间不需要键盘输入任何中文，而有的条码里有字母，此时如果输入法为中文的话则会被拦截（系统认为是在输入汉字），有的人（特别是新人）没注意到输入法的问题，认为是程序出错了。故而想自动切换至英文，避免一些麻烦

https://bbs.bccn.net/viewthread.php?tid=485814&highlight=%CA%E4%C8%EB%B7%A8
VFP的IMESTATUS()适用XP，之后的windows版本可能不适用。
可以试试用WinAPI切换输入法，如：
DECLARE LONG GetKeyboardLayout IN User32 LONG
DECLARE LONG LoadKeyboardLayout IN User32 STRING@, LONG
DECLARE LONG ActivateKeyboardLayout IN User32 LONG,LONG
hLayout = GetKeyboardLayout(0)
?"切换为En输入法"
LoadKeyboardLayout("0x0409", 1) && KLF_ACTIVATE
?"按一键恢复原输入法"
INKEY(0)
ActivateKeyboardLayout(hLayout, 0)
上面是2018年的帖子，吹版提供的方法，试过了，可以达到目的
有一点不知能否实现，用了上面的方法，第一次右下角键盘位置显示为 ENG ，再点就没有了，等于输入法当前状态看不到了，能否只切换“中”“英”状态？

有可能模拟发送一个按键 <Shift> 吗？

DECLARE LONG GetKeyboardLayout IN User32 LONG
DECLARE LONG LoadKeyboardLayout IN User32 STRING@, LONG
DECLARE LONG ActivateKeyboardLayout IN User32 LONG,LONG
hLayout = GetKeyboardLayout(0)

LoadKeyboardLayout("0x0409", 1) && KLF_ACTIVATE

上面是我在form.Activate时执行的

[此贴子已经被作者于2023-1-12 10:45编辑过]

感谢感谢，我试试

谢谢