怎么知道用户是否调用输入法,切换输入法

2001-11-14 02:01:58 682 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用 Python 切换输入法用 Python 切换输入法文章目录用 Python 切换输入法0. 前言及参考资料1. 脚本 0. 前言及参考资料前言本来是想做一个 Sublime Text 3 的小插件，解决 vim 模式下，退出插入模式进入命令模式的时候，输入法没有办法自动切换到英文的这个问题。后来看了一下文档好像有点门槛，准备以后再弄吧，暂时写一个 Python 切换输入法的小脚本试试。其实准确来讲应... 阅读详情

如题,先给50,解决了再加.
geliang

...全文

Mac 上 YYDS 的自动切换输入法工具：好用到原地炸裂式起飞给一个 app 设置一个输入法，有时候显得粒度比较大，比如在浏览器的地址栏输入的一般都是英文，如果在类似这样的位置也可以设置一下专属输入法就更欧克了！一旦涉及到频繁的输入，然后又是在非英文环境下的工作，就免不了要切换输入法，因此虽然切换输入法的动作可能也就 1 秒左右，但是它却很频繁，很容易打断我们的工作流。如今社会大部分工作都被电脑化了，在很多方面我们的工作都变得比不用电脑更加高效，但是我们知道人的欲望是无止境的，人是解决问题的天使的同时也是制造问题的反派角色。也有另一种方式，就是如下的配置。阅读详情

geliang

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

Camel_csdn 2002-05-27

打赏
举报

关注

geliang 2001-11-15

打赏
举报

谢谢zfmich(),这篇文章我看过了,但它是指用api来达到改变输入法的,不符合我的要求,
lxl(蚊蚊)这种办法我是绝不会用的,太耗资源了,
to all
我用Winsight32好象已经找到了那两个消息了,WM_IME_SETCONTEXT,WM_IME_NOTIFY,还在研究中,有结果一定告诉大家

zxb2001 2001-11-14

打赏
举报

good

lxl 2001-11-14

打赏
举报

是否调用输入法:
你不停去用FINDWINDOW（）找输入法的窗口啊
切换输入法:
关注

chechy 2001-11-14

打赏
举报

消息确实很多，所以，我一般都是采用消息过滤的，只跟踪部分消息。这里，需要关注WM_IME_*的消息，所以就跟踪这一部分。

zfmich 2001-11-14

打赏
举报

转载

Delphi下编程实现中文输入法

---- Borland Delphi 以其强大的功能及和高效的可视化开发环境为广大程序设计员所青睐。尤其是它封装了WINDOWS API 函数，能方便地利用WINDOWS 资源

大大加快了程序开发速度。

---- 在平时的计算机操作中

中文输入是不可避免的。使用者可能喜欢不同的中文输入法(inputmethod editor

简称IME)

这就不得不经常点击任务栏中的中文图标或用CTRL+Space

CTRL+Shift 热键切换

初学者用起来很不方便。针对这一问题，可以在开发软件时

在程序中设置用户喜欢的中文输入法

方便用户的使用。Delphi 中只有少数控件如TEdit 支持IME

而且该功能不强

不能在运行时更改输入法。

---- 笔者通过实践和摸索

查找了相关的IME 资料

利用了WINDOWS API 函数

实现了IME 的功能。

---- 常用函数有：

API函数：BOOL ImmSimulateHotKey

(HWND hWnd

DWORD dwHotKeyID);//模拟热键

其中Hwnd为程序窗口的句柄

dwHotHKeyID

为模拟的热键

若成功则返回True

HKL GetKeyboardLayout(DWORD dwLayout);

//获得当前键盘状态

BOOL ImmIsIME(HKL hKL);

//判断当前是否处于中文输入状态

若是则返回True

自定义函数：

打开相应输入法：OpenIme(imename:string)

例OpenIme('全拼输入法');

关闭中文输入法：CloseIme;

以下是一个简单的例子，仅起参考作用。

使用时uses中加上imm

具体的实现方法及源代码如下：

unit Unit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls

Buttons

imm;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure FormShow(Sender: TObject);

procedure OpenIme(imename:string);

procedure closeIme;

procedure ComboBox1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);

var

j:integer;

begin

for j:=0 to screen.imes.count-1 do

begin

ComBoBox1.Items.Add(screen.Imes.strings[j]);

//获取系统中已安装的中文输入法

end;

end;

procedure Tform1.OpenIme(imename:string);

var

I:integer;

myhkl:hkl;

begin

if ImeName<>'' then

begin

if Screen.Imes.Count<>0 then

begin

I:=screen.Imes.indexof(imename);

if I>=0 then

myhkl:=hkl(screen.Imes.objects[i]);

activatekeyboardlayout(myhkl

KLF_ACTIVATE);//设置相应的输入法

end;

end;

end;

procedure TForm1.closeime;

var

myhkl:hkl;

begin

myhkl:=GetKeyBoardLayOut(0);

if ImmIsIME(myhkl) then

//判断是否在中文状态

若是则关闭它

immsimulateHotkey(handle

IME_CHotKey_IME_NonIME_Toggle);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

OpenIme(ComboBox1.Text);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

immsimulateHotkey(handle

IME_CHotKey_shape_Toggle);//切换半角和全角模式

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

immsimulateHotkey(handle

IME_CHotKey_symbol_Toggle);

//切换中文标点模式和英文标点模式

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

closeime;

end;

end.

---- 本程序在Delphi 3.0/4.0 下通过

hzlan 2001-11-14

打赏
举报

我做了一个,就象任务栏上的一样,不过没有图标显示.

geliang 2001-11-14

打赏
举报

又要谢谢chechy了
Winsight32我已经用过了,它的消息太多了,看不过来@_@
我在msdn里也查过,也没查到,还请chechy等大虾指点一二

zfmich 2001-11-14

打赏
举报

转载

Delphi实现自动切换输入法

我们在使用 Windows 平台(以下指中文版Windows)的软件时，常常需要输入一些有关信息，有时在一个编辑框内输入中文，而另一个编辑框却要求输入英文，这时我们不得不切换输入法。当我们在录入大量上述条件的数据至数据库时，频繁的切换无疑对速度影响很大，那么能不能在光标落入编辑框内时，就自动切换为所需的输入法呢？答案是肯定的，Delphi中就可以实现。

在delphi中，可直接键入内容的元件都具有ImeMode、ImeName属性，IME为(Input Method Editor)的缩写。其中ImeMode 为枚举型变量，取值为(imDisable

imClose，imOpen，imDontCare，imSAlpha，imAlpha，imHira，imSKata

imKata，imChinese，imSHanguel，imHanguel)

默认为imDontCare

其他几种属性值与本文没有很大关系，内容又多，因此略过。ImeName也是枚举型变量，默认为空，具体取值范围与系统中所装输入法有关，在Delphi启动时，自动检测得变量取值范围，对于中文版Windows而言，智能ABC输入法、全拼输入法都是缺省安装的。

例如:一个用户登录窗口要求输入用户名(中文)，口令(英文字母与数字的组合)。假设用户名为“陈理辉”，口令为“student”。设计步骤如下：

新建一窗体，设置其属性为

Caption: 登录窗口

Name LoginForm

BborderStyle bsDialog;

FormStyle: fsStayonTop

Position poScreenCenter

在窗体中放入两个TLabel构件，分别设置为

Caption 请输入用户名：

Caption 密码:

在窗体中放入一个TEdit构件，设置为

Name UserNameEdtText

ImeName 智能ABC输入法

在窗体中放入一个TEdit构件，设置为

Name PassWordEdt;Text

PasswordChar ′＊′

放入一个TButton构件，设置为

Caption 确认(＆O)

Name OkBtn

双击该构件加入如下代码：

procedure TLoginForm.OkBtnClick(Sender:TObject);

begin

if (UserNameEdt.text=′陈理辉′) and (PasswordEdt.TExt=′student′) then

begin

ShowMessage(′密码正确，登录成功！′);

Application.Terminate;

End

Else

ShowMessage(′密码错误，请再试。′);

end;

放入一个 TButton 构件，设置为

Caption 取消(＆C)

Name CancelBtn

双击该构件加入如下代码：

procedure TLoginForm.CancelBtnClick(Sender:TObject);

begin

Application.Terminate;

end;

7.将Project存为Login.dpr

将LoginForm设为主窗口(点Project|Options

选Forms标签页

点Main Form下拉框，选LoginForm

按Ok)，按F9运行。

不用手工切换输入法是不是很方便？以上在Delphi 2.0 ，3.0 上通过。

cobi 2001-11-14

打赏
举报

ImmGetConversionStatus(ImmGetContext(GetForegroundWindow),a,b)
或
TID := GetWindowThreadProcessID(GetForegroundWindow,@PID);
MyHkl := GetKeyBoardLayout(TID);

chechy 2001-11-14

打赏
举报

你不妨用Winsight32跟踪一下，看看切换输入法会触发哪些消息。应该是WM_IME_*的某个消息。

怎么知道用户是否调用输入法,切换输入法

相关推荐